ires: 8® 
AA: case avuusTus 1983 
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3000 BAuD: 
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GRAPHICS 


tettetettttteterteeeer tettert 
ACORN NIEUWS Uitg.Fed.Acorn Computerclubs Ned/B. 
Verschijnt 6-8 x p/jr. 


Uil DE NEDERATIE, 


ven cer sental zaken rechtzetten c.q. uit de wereld helpen, 

sr schijnen een santal misverstanden te zijn omtrent het 
gebruik van ledenlijsten. 
‘Len eerste is de federatie een overkoepelend orgaan die niet 
meer dan vijftien verenigingen als lid heeft. Dit impliceert 
dat de federatie niet vrij is om ledenlijsten van aangesloten 
vereniringen te verspreiden. Alleen de penningmeester heeft 
een ledenlijst die comnleet is en deze is nodig voor het bij- 
houden van de contributie inning en verspreiding van het Acorn 
nieuws, Buiten een aantal juridische obstakels als wel om 
nraktische redenen is het niet mogelijk om de ledenlijst te ver- 
spreiden, Dit zou inhouden dat er iedere week een ledenlijst 
zou moeten worden gemaakt, daar er ongeveer tien leden per week 
bijkomen. Indien iemand van mening is dat hij de ledenlijst 
nodig heeft, dan staat het hem of haar geheel vrij de veertien 
andere verenipingen te benaderen om een ledenlijst. On dat 
moment is de verantwoordelijkheid bij de desbetreffende ver- 
eniging, zolang die vereniging de ledenlijst maar niet commer 
ciëel exnloiteerd, 

ten ander punt is mijn insiens belangrijker daar dit de aard 
van de vereniging zelf aantast. Het gaat hier om het commerciëel 
ter beschikking stellen van zelf ontwikkelde soft/hardware. Ik 
vind het ronduit schandalig als iemand eens iets presteert en er 
dan maar direct een slaatje uit nrobeert te slaan, wat de argu- 
menten daar dan ook voor mogen zijn. Deze mensen staan er kenne- 
lijk niet bij stil dat zij wel van alle kennis van anderen op de 
honste zijn zonder noemenswaardige kosten terwijl er hier mensen 
hij zijn die wezenloos druk zijn voor de club maar er geen cent 
beter van worden. Deze nositieve groep mensen redeneren namelijk 
“ls volet 1 ten eerste hebben zij er plezier in om iets produk- 
tiefer te ontwikkelen en dit voor algemeen belang ter beschikking 
te stellen, immers zij krijeen d.m.v. het Acorn nieuws, schakel 





rt, cehrurenkaart ete, er ook weer wat voor terug, het is een 
kwestie van reven en nemen | Het begint namelijk schering en in- 
slag te worden dat mensen er zonodig beter van moeten worden. 


Ik verwacht geen vergoeding voor mijn diensten maar ik verwacht 
ook niet te moeten betalen (uitgezonderd algemene kosten) voor 
iemand anders zijn produktiviteit. Indien dit rottingsproces 
zich voortzet, zie ik de toekomst erg somber in, We zijn ten- 
slotte een hobby-club en geen IBM-gebruikersgroep. Ik heb in 
mijn betoog geen namen genoemd, maar indien men zich aangesproken 
voelt, lijkt het mij een goede zaak er eens over na te denken 
hoe verder te gaan. We maken allemaal wel eens fouten maar het 
is nooit te laat ze toe te geven. 

Het volgende punt betreft de toekomst van de ACORN ATOM, 
Er zijn inmiâdels een aantal kaarten op euro formaat gemaakt en 
is een backplane gemaakt naar Elektuur standaard, Dit backplane 
heeft 16 slots en is uitbreidbaar tot een veelvoud hiervan. 
Inâien er meer leden zijn die met deze ontwikkeling bezig zijn, 
zou ik graag een schriftelijke reactie tegemoet zien. Hierop 
kom ik in het volgende Acorn nieuws uitgebreid terug. 


A. Millenaar, Voorzitter 


REDACTIONEEL 


Hoewel dit nummer in de vakantieperiode is ontstaan, vertoont het 
geenzins de kenmerken van deze (komkommer) tijd: 80 pagina's, een 
record! En nòg is de koek niet op, zie de rubriek “Gezien in an- 
dere Acorn-bladen", 

Gedeeltelijk mijn eigen schuld, want enkele artikelen zijn min of 
meer op mijn uitnodiging ontstaan: dank dus aan: Erik Dukker, Bram 
Poot, Klaas de Raad en Frans van Hoesel, Ook de "gewone" auteurs 
uiteraard, 


Verder verdient melding de verschijning van het eerste nummer van: 
ACORNTJESBROOD, lijfblad van de regio Twente, 't Zag er bijzonder 
gedegen uit, Alle succes toegewenst aan redacteur Will Verhoeven? 
(A propos, Will, denk eens aan de landelijke bladspiegel van 170 x 
250mm, wil je 7) 


Het blad van de regio Noord heeft een redactie=wisseling ondergaan 
(sterkte, JaapWoldringh!; en een naamswisseling, nl. STACKER 
(spreek uit: Ugtekker") inplaats van "Acorn Nieuws Noord". Deze 
naam houdt verband met een elektrisch verbindingsmiddel (stekker), 
bewaarplaats van informatie (stack) en misschien met de redacteur 
in zijn moeilijke redactionele momenten, 


Verder heeft de regio Noord, in casu Rudi van Drunen, evenals Jaap 
van de Woestijne enige tijd geleden, het principeschema uitgeplozen 

van de 16K-kaart, 

Uitsluitend voor eerbare doeleinden te bekomen bij Jaap Woldringh. 


Tenslotte: nog niet alle regio's hebben gereageerd op mijn “nage- 
komen bericht” in A‚N. 3, betreffende een eventuele uitgave van de 
1° jaargang van Acorn Nieuws, Vermoedelijk, zoals regio Noord 
schreef, omdat de eerstvolgende regio-biĳeenkomst pas na de lopen- 
de vakantie-periode is gepland. Dom van mij, natuurlijk, Aanmeldings 
=periode verlengd tot medio september! 


Het eerstvolgende nummer van Acorn Nieuws zal oa, gaan over Ana- 
loeog/Digitaal omzettingen. 
Copy, graag vóór medio september, naar ondergetekende. 


Ton Otten (redacteur), J.A. de Gravenlaan 17, 2381 TA Zoeterwoude, 


hhnhhnbhannanhannnttansahhanhhhaahnhaanahtnnkhaasdsanhhantsdsnss.ss 


BRAND 


Onder deze naam (die ikzelf maar bedacht heb; wie een betere weet, 
mag het zeggen) wordt U voortaan op de hoogte gehouden van die 
Átom-aspecten, die in één of meer regio's speciale belangstetling 
genieten, Het blijkt nl, dat de artikelen, die voor plaatsing in 
Acorn Nieuws worden ingezonden, meestal gaan over voltooide pro- 
jecten, Gelukkig niet altijd, maar vaak toch wel. Eigenlijk wel lo- 
gisch, want schrijven over vage plannen is nu eenmaal moeilijker dan 
schrijven over iets dat werkt en waar je trots op bent, 

Nadeel van deze gewoonte is evenwel, dat de Acorn-gemeenschap pas 
kennis kan nemen van een bepaald projedt als het (allang) klaar is 
terwijl men zelf misschien al een hele tĳd aan een soortgeliĳke ont 
wikkeling bezig is. Terwijl men SAMEN vermoedelijk sneller had kun- 
nen werken èn wellicht een beter resultaat bereiken! U begriĳpt'tal? 
Inderdaad: SAMEN (nog) WIJZER, 


In deze rubriek zullen ontwikkelingen, die in een bepaalde regio 
de belangstelling hebben, worden opgenomen zodat eenieder die 
denkt hierin een bijdrage te kunnen leveren, kan meespelen, 
Kontakten kunnen altijd gelegd worden via de regionale coördina 
toren. 


Daar gaan we dan, in willekeurige volgorde: 


» Regio Noord 
Schakelkaart Operating Systeem, dit A‚N., pag. 34 
Mini-schakelsysteem, zie "Ontwikkelingen", pag.60 
Real-time klok, zie "Big Benny", pag. 45 
Bisk Operating System ( TELEC 
RTTY- en Morse-interface 
Eenvoudige numerieke toepassingen, zoals benaderen van funkties 
door veeltermen en een voudige rekenkundige leerprogramma's 


= Regio Den Haag. 
Disk Operating Systems 
Schakelkaart Operating System (van Klaas de Raad, beschreven 
op pag.4g) 
2° Video-pagina 
Real Timer (National MM58167A) 


- Kegio Iwente 
80-koloms VDU-kaart 
NMI- en IRQeschakelingen 
bO-=koloms VDU-programma 
Schakelsoft 
Database-programma's 
Lineaire analyse van Elektronische Schakelingen 
6502-symbolische assembler 
Twentse Toolkit 


= Kegio Brabant-Oost 
Viditel®* 
Modem 

- Regio België 
Behalve 1Ó6K=skaart, Schakelkaart en EPROM-programmer: 
Mint Data Cassette Recorder (ADCR-Philips) 
Kleuren-monitor 
A/D- en D/A-converters en toepassingen. 


= Regio Overijssel -Gelderland,. . 
(Zat pas informatie kunnen verstrekken na eerste regionale bijr 
eenkomst na de vakanties. } 


Bij dit laatste sluiten zich de overige regio's kennelijk stilzwij- 
gend aan. (Hoop ik, red.) 


Tenslotte, à titre personel roept Rob van Dort gegadigden op voor 
BASICODE-2. Wie wil de Atom-aanpassing aan deze universele compu— 
tertaal van ons aller NOS (helpen) ontwikkelen? Leest u dan eerst 
het artikeltje van Rudi van Drunen over dit onderwerp, op pag. 68. 
Bestelt u dan eventueel boek en bandje (zonder Atom aanpassing!) 
bij het Algemeen Secretariaat ved, NOS, te Hilversum, postgiro 
nummer 1419, Kosten f 25,==-. 

Bent u dan nog steeds geinteresseerd, neem dan contact op met de 
voorzitter van het Software Overleg, Roel Heuvel, Brialmontstre 16 
5913 HJ Venlo, tel. 077-40160, 


% Hier komt een artikel over, van uw eigen specialist op dit ter- 
rein, nl. mijzelf, red, 


SSATOM DESIGN: 
BRON: YOUR-COMPUTER 
OMGEZET NAAR ATOM BASIC: W. VERHOEVEN 


Dit programmatje genereert allerlei leuke grafische patronen. 
Probeer maar uit ! 


10 CLEAR4 

20 Y=A.R.#70+1005 X=A.R. 460; Z2A.R. A54 

30 F.‚R=Y TO X 5.2 

40 MOVE R‚R;PLOT2,O, (175-2xR) 

50 PLOT2, (255-24R) „OQ; PLOT2,O, (-175+24R) ; PLOT2, (-255+2ER) ,O 
60 NEXT 

7o 6.20 


IDD ® KERK KDI ZNS ANS 
NANANARAEANANANAND IAN 
ONTMOET INGSWEEKEND OP 25, 26 EN 27 NOVEMBER 1983 
TE RENDEUX - HAUT, NABIJ LA ROCHE IN DE ARDENNEN 


Ae 


N 
VPS 
NANA 


® 


0 
OK 


& 


Ter gelegenheid van haar stichtingsverjaardag nodigt 
de Belgische sectie van de Acorn Computer Club Neder- 





A3 land alte leden uit voor een vriendschappelijke ont- _àN 
MANE moeting. RAN 
VK Op het programma: DN 
DANE = een reuze Acorn Atom WORKSHOP DANS 
IN = een fantastische Acorn Atom wedstrijd IN 
34 - een buitengewoon SYMPOSIUM rond de Acorn Atom. 


KO 


DN 
Ook gezinsleden zijn welkom, Voor hen zal een apart N 
bp 


programma worden opgesteld. & 
NDA ND AND AND AND AN 
OEE ROR KS 


Dit ontmoetingsweokend staat geheel in het teken van de vraag: 
"Wat doen wij met onze Atom?" 

De bedoeling is datde diverse regionale Acorn-clubs (dat zijn er 
dus 14) zich in dit ontmoetingsweekend presenteren en manifesteren 
naar elkaar, zodat over en weer een beter inzicht ontstaat in die 
zaken die bij iédere bepaalde ciub het meest in de belangstelling 
staan, en welke resultaten er in dit opzicht reeds te melden zijn, 
Vandaar de WORKSHOP, waarbij elke deelnememende regionale club een 
eigen STAND mag inrichten volgens haar eigen smaak en met haar ei- 
gen stokpaardjes. 

Ook aan de WEDSTRIJD wordt per regionaie club deelgenomen: 


& 


ND, 
SAN 


DANS 
@ 
9 
KA 
VAS 


Heeft UW regio al een programma op het oog waarmee ze wil 
deelnemen??2?2227 


Zoniet, dan wordt het tijd om de koppen eens bij elkaar te steken. 
'n Goed onderwerp voor de eerstvolgende bijeenkomst! 


In het aansluitende SYMPOSIUM worden vervolgens de eerste conclu- 
sies getrokken uit deze confrontatie van regio's met hun resp. 
specialismen en visies. 


Tenslotte: de deelname is beperkt door het beschikbare aantal ka- 
mers (80). 


Willen daarom de sectie-coördinatoren die dat nog niet deden. 
ze spoedig mogelijk hun regionale deelnemerslijst insturen?? 


Blz. 


2- 
Je 
b- 


EE OVO Dur Er 


10-1 


biek2 
ha 
bjetd 
bh 
h5-h8 
19-59 
60 
61-62 


63-66 
67 


67 
68 


69 
69 
7o 
70 


dN DE NU MME RK 


UIT de FEDERATIE, ontboezeming van Arno Millenaar. 
Redactioneel, door Ton Otten, 

BRANDpunten: wat leeft en groeit...….:., Ton Ütten, 

Enig GRAFISCH WERK van Wk, Verhoeven. 

ONTMOETINGSWEEKEND t.g.v. de eerste verjaardag van de 
Acorn Computerclub België, 

Inhoudsopgave, ook van andere Acorn Clubbladen, 

ERROR, of liever ERRATUM bij Acorn Nieuws 3/'83, 
Bevindingen van de HARDWARE-vergadering, via Brabant 
Oost uit Grave, 

Zomaar wat GEDACHTEN van een nieuw lid, in casu de heer 
Dekker, Over het schrijven van EDUCATIEVE programma's en 
VIDEO-mogelijkheden, 

GESTRUCTUREERD PROGRAMMEREN, in twee etappes. Aanloop 
van Erik Dukker, finish in België, door P, Crismer en 
Jac. Mijngheer, ex aequo, 

ASSEMBLER CURSUS, deel 7, door Leendert Bijnagte. 
Wederom een knap stukje werk, zonder eikeltjes ditmaal, 
tn Vernieuwd TELEX-besturingsprogramma, kort beschreven 
door de auteur J. Jobse jr. 

't Drukwerkarchief, tweede overzicht door F,‚ Benschop. 
‘n KNIPPERROUTINE, door Rudi van Drunen, 

tn Overzicht van het BANDJESARCHIEF, plus een truucje 
bij het copiëeren, door Níco Stad, 

BLOCK f, inclusief STACK- en TOOLBOX-RUIMTE, door 

Theo van Rijn, 

‘n Simpele VOEDING, door Erik de Koning/Nico Stad, 
ASSEMBLER-programmering in REMestatements, dus direct 
RUNnen, zonder telkens opnieuw assembleren, door 

Fred Danckaarts, 

‘n Hogere KAST voor onze Atom, een ontwerp van Fernando 
Monsanto, en hiĳ wil ze nog voor je maken ook 

‘n Schakelaar voor GE-INVERTEERD BEELD, uit Acorntjes- 
brood (Kun je dat eten?} 

SHAPE-figuren konstrueren met de joy-stick, door 

Jan Wijnen. 

FOUTMELDINGEN van de JOSBOX, toegelicht deor Joop Glas- 
bergen. 

BIG BENNY, een real-time klok, door Frans van Hoesel, 
SCHAKELKAART OPERATING SYSTEEM, twee realisaties met 
toelichting en inleiding, Resp, door Bram Poot, Kiaas 
de Raad en uw redacteur, 'n Hele kluif? 

In ONTWIKKELING bij Frans van Hoeseì, door hemzelf. 
TREE-DEE, ruimtelijke figuren in perspectief, van alle 
kanten bekeken door Eric Snelders, 

3000 BAUD, en 't werkt echt! Door Peter Ehrlich, 
RUISVRIJ plotten, nu eens niet in vertragende software, 
maar in minder vertragende hardware, door Jan Wijnen, 
GEEN VRAGEN, althans -tekens bij de uitvoering van INPUT 
statements, uit Acorntjesbrood. 

Het nieuwe BASICODE-protocol, beschreven door Rudi van 
Drunen, 


Allerlei GRAPHICS: 

Nieuwe mogelijkheden met de Josbox, door TFT, Verschuren, 
Witte SPATIES bij INVERS video, door Frank de Groot, 
Tekenen in GRIJS inplaats van WIT, door L. Bijnagte. 

24 regels bij 40 karakters op uw scherm neergeschreven 
door Paul Kuyper. 





Blz. Zl Netjes FORMATeren van listings, door Rob van Dort. 
72 Nu een èchte SNELLE SCHERMSPIEGEL van ob van Dort, 
met een reserve-programma van Bram Poot. 
73 Toelichting bij deze twee programma's, 
74-75 EXTRA VIA's (4!) stapelen met Rob van Dort. 
75 Uitleg van de OPT-ILLUSIE, door Rob van Dort. 
76 COMMUNICATIE tussen twee Atoms, door Wim Schreuder. 
T7 Aanvulling op het 8-regelige scherm van de MORSE-DECO- 
DER van AN3/'83, door Hans Brouwer. 
77-78 Recorder DIAGNOSE-programma, een nieuwe stap op weg 
naar de perfecte CASSETTE-RECORDER, gezet door onze 
3000 BAUDER, Peter Ehrlich, 
79 AFRONDINGSperikelen, door Jaap Woldringh en Theo Waayer, 
BO (Boompje)WISSELEN zonder hulpvariabele, door Jaap 
Woldringh. 
80 LOGARITMEN met willekeurig grondtal, door J. woldringh. 
81-82 Goedkope LENINGEN, naar waarde geschat door Jaap W. 
82 GGD en KGV, zonder ongelukken, door Jaap Woldringh, 


In andere Acorn Clubbladen: 


Acorn Nieuws Noord, mei '83, 


Uitbreiding funktietoetsen van CHARON/ (Netjes) uit een lus sprine 
gen/ Video display Generator Extensie, met FLASHING CURSOR en meer 
van dat moois/ Omzetting X-Y-coördinaten naar Poolcoördinaten/ 
Relatie tussen (cassette-)bandteller en (Acorn-)bloknummers/ Bere- 
kenen van Veeltermen/ Snelle Sinus en Cosinus, door INTEGERE aan- 
pak, 


Acorn Nieuws Noord, juni '83, 


Sorteerprogramma(naar alfabetische volgorde)/ Surrounder (Boter, 
Kaas en Eieren op de Atom)/ Regel van Cramer, bij stelsel van 2 of 
3 vergeliĳkingen/ Zeer globale berekening van de zonne-declinatie, 


De CURSOR, h/'83, 


Tĳjdmeting met optische sensors, een soort stopwatch/ PERT, een 
planningsmethode/ Simulatie van een golf in een koord, 


Acorn NEWSletter (België) 1/'83. 


Verwijderen van Assembler routines uit BASIU-programma's (lijkt nog- 
al op artikel van Fred Danckaarts, pag,40)/ Uitleg van de EPROM- 
programmer/ Toelichting op de A/D=-converter van AN 1/'83/ Gebruik 
van "ON ERROR" in Loops / Atom calculator pad, 'n numeriek toetsen- 
bordje erbij/ Zelf een schaakprogramma maken?/ EPROMS in het ge- 
bruik, uit het HCC-blad/ Programma "Sinusjes" zonder TOOLBOX, 


Acorntjesbrood, 1, 


Project: 80-koloms video-display unit/ Opmerkingen met betrekking 
tot de 16K-geheugenkaart: Write Protect, Dattery Backup, tweede 
16K-kaart, kaart uitschakelen(disabelen). 


(Oef! het gaat er juist op! red,) 


in "BENCHMARKING" 


In het artikeì "BENCHMARKING" van J.R, Marks in AN 3 (+83) is he- 
laas door de auteur een nulietje over het hoofd gezien, Hierdoor 
verandert evenwel de conclusie; nogal drastisch eigenlijk. 


Tot zover het slechte nieuws, 


En dan nu het goede nieuws: de opgegeven tijd voor de test nr, 8 
(deze test hoofdzakelijk enkele Floating-Point-funkties, HONDERD 
maal achter elkaar en niet DUIZEND!}op de Acorn Atom is een fac- 
tor 10 te hoog opgegeven. 

Dit betekent dat op het onderdeel Floating Point onze Atom oprukt 
van de 15° plaats naar de 11° en in het Algemeen Klassement van 


de 13° plaats naar de 3° plaats! 


Een fraai resultaat, nietwaar? 





BEVINDINGEN VAN DE HARDWARE VERGADERING 





a. Allerlei defecten in de Atom kunnen worden veroorzaakt door 
de niet zo goede ic-voetjes; vooral als de pootjes van de 
ic's bijgebogen zijn om ze gemakkelijker in te kunnen steken, 
Verdachte ic's uit voetje halen, pootjes in de normale stand 
buigen en ic weer terug steken. 


b. Het is meer dan eens voorgekomen dat door een defecte voeding 
te hoge spanning op de Atom is gekomen, met alle gevolgen van- 
dien. Een extra overspanningsbeveiliging (bijv. met thyristor) 
ís aan te bevelen, 


c. Men is tevreden over de disk-drive: het adresgebied EXXX van 
de schakelkaart dient dan geheel buiten werking gesteld te 
worden (pen 10 van decoder los), Overigens, ook hex 2000-2400 
wordt voor de disk gebruikt. 


d. Verscheidene mensen hebben gelijktijdig aan hardware ontwikke- 
lingen gewerkt zonder van elkaars know-how te kunnen profite- 
ren. Een betere informatie-uitwisseling is gevenst, met name 
over (nieuwe) club-hardware (documentatie schakelkaart 1). 


e. Een seriële 4 maal i/o RS 232 is bijna klaar. 


f. Hoogste prioriteit heeft een telefoonmodem met standaard 
communicatieprotocol. Verder gaan de gedachten uit naar 
high-resolution VOU, lichtpen, apart numeriek toetsenbord, 
a/d converter, extra processor, andere adressering schakel- 
kaart, bankselecting geheugens. 


qg. Er moet met nadruk op gewezen worden dat de ACC alleen zin 
heeft als de programma's van een Atom ook op de meeste andere 
Atom's kunnen draaien. Hardware aanpassingen dienen dus zoveel 
mogelijk software-compatibel te zijn met de standaard Atom. 


4E MAAR WAT GEDACHTEN VAN 
AAA tAtttttt tt 





Zoal- uit de titel blijkt, ben ik noc maar 





korte tiid 


lid van de Acorn computer club en ik wij « 





ac vertellen 





dat ik diep onder de indruk ben van de encrre know hew die 





in de club gebundeld is, zowel cp het gebied ven de hardware 
als van de software. 


Toch vind ik het jammer dat ik vrijwel niets ncor en helemaal 


niets lees over de projecten waarmee ik m (heefdzakelijk) 





bezighoud. 





Het eerste (en belangrijkste) project betr 
van LEERPROGRAMMA'S . 
Dit soort programma's hebben de intentie - zoals het woord 


het schrijven 


uiteraard al zegt -— iemand iets te leren. Er moet dus sprake 


zijn van communicatie tussen een leerling en de corncuter. 


De computer legt de leerlingen problemen vcor, reageert op 
juiste en foutieve antwoorden, legt -indien nodig= iets nog 
eens nader uit, verwijst terug in de leerstof, gaat na of alles 


goed begrepen is, enz. 





Het zal u duidelijk zijn dat de omvang van degelijke program 
ma's aanzienlijk is. Het overdragen van een vrij beperkte 


hoeveelheid leerstof vraagt meestal al snei 19 à 15 kbyte. 


Het schrijven van leerprogramma's is primair een didactische 
aangelegenheid; het resultaat in de computer brengen is het 
beheersen van een paar techniekjes, die men in een uurtje 
onder de knie heeft. 


Enige jaeren geleden schreef ik al dergelijke vrocramma's 


arste broers" van de 


voor UNIVAC- en IBM-computers, dus de 
ACORN, maar de laëtste doet dit werk zeker ze goed. 


Ke 











bezwaar Ìs dat de ACORN geen gSrammeertaal 
voer het schrijven van leervrogrer . aus 
eerst een stuursysteen ze voor- 





zen dat elk item gevolud moest werden aantal 








Iets", 


Dankzij dit stuursysteem (dat zeker nog woor verberzering vatbaar 





xan ik volstaan met het intoetsen van sen GCTO naar een 





xt een label. De ACORN springt dan = aan de hend van de 


es van de leerlingen - snel en accuraat naar de juiste 





in het programma. 





Nu zou n chien de gedachte kunnen bestaan, dat het schrijven 
van leerprogramma's uitsluitend is voorbehouden aan didactisch 


geschoolden. 


Ik ben echter van mening (en ik heb dat in de praktijk getoetst) 
dat mensen die: 


— zaken goed op een rijtje kunnen zetten: 
= zieh kunnen inleven in de gedachtengang van een 
beginneling, en die 
— hun gedachten in voor de leerlingen begrijpelijke 
bewoordingen kunnen formuleren, 
met enige aanwijzingen leerprogramma's kunnen schrijven van 
een aanvaardbare kwaliteit. 


Wanneer zou blijken dat voor deze materie belangstelling 
bestaat, wil ik daar nog wel eens op terug komen. 


Tenslotte nog één opmerking over leerprogramma's: een programma 
dat een leerling in een kwartietje kan doorwerken , vraagt 
zeker 40 à 50 uur voorbereiding alvorens het gebruiksklaar 

in de computer zit. Het schrijven heeft dan ook uitsluitend 

zin ais grote aantallen leerlingen het programma kunnen 
gebruiken. 


Tot zover mijn eerste project. Het tweede heeft daar totaal 


niets mee te maken. 


Ik heb jerenlang gefilmd en ben eniae jaren zeruc overgestapt 
cp video. Dat heeft - zoals iedereen wel zal weten - zowel 


voor- als nadelen. 





Een (voor mij) belangrijk nadeel is het niet kunnen zaken van 
enkelbeeldopnamen. Het is niet mogelijk aniratie- en teken- 
films te maken. Ook ontbreken daardocr een groet aantal truc- 
toepassingen, die met film wel mogelijk ziin. 

ik 


Zo had b.v. de gewoonte erg veel werk te maken van titels. 





Het lag dus voor de hand dat ik naar mogelijkheden zoeht om 
de ACORN dat te laten doen. De Acorn bleek \nderdaad een 
ideale titelgenerator. 


Teen ik echter trachtte het beeld van de Acorn co de video- 
recorder vast te leggen, werd dat een volslacen mislukking. 
De videorecorder "pikte" de 60 hz. van de Acorn niet. 


Alleen bij versneld weergeven (picture search) was het beeld 
te zien omdat de recorder dan een soort eigen synchronisatie- 
signaal gebruikt. 


Tot op dit moment behelp ik mij door met de videocamera de 
titels op te nemen van het scherm van een (zwart-wit) TV, 
maar mooi is het niet. 

Ik wacht dan ook met spanning op de komst van een print die 
het uitgangssignaal van de Acorn laat voldoen aan de ECE-norm 
en waarmee (naar ik hoorde) ook het gebruik van kleuren 
mogelijk is. 


Intussen heb ik al een hele serie titelprogramma's klaar. 


Wilt u ook eens proberen? 


| 


REM stijgende titel 


REM JBDEKKER 
P.#12; IN."HOEVEEL TIT 
F.C= 1TO N; DIMB64; TTC=B 
F.C= 1TO N:@ =# 
P."VOER TITEL *C# IN "! 
IN. STTC; N.C 

67 P.Z12; ?#el=4 

IS P.C= 1TO N; P.tt terre 
F.w=Z TO 120; WAIT: N.W 

pp, teen en "ZrTC 

142 N.C: CG. 





Een geheel ander effkt krijgt u na het aanbrengen van de 


volgende wijzigingen: 


1 REM verspringende titels 
TZ F.C= 1TO N: CLEARË; P.#34 
75 petten nge 


en DELETE regel 9% 





Er is in deze programma's ruimte genoeg voor langere en 


Jubbelregelige titels, zoals b.v.: 


CAMERA: 
PIET DE ZOEKER 


DEKORS : 
KAREL KWAST 


REGIE: 


JAN DE REGELAAR enz. 


In deze programma's gaat het er cr dat de gebruiker es: 


willekeurig titels kan invoeren. 





rsarä sunnern 





geinverteerde 





We gaan het programma nu nog een keer wijzicen er 





dat het nu de enkelbeeldopnamen van de film zeer 
benadert. 


REM groeiende titels 


p‚ttrteren u 


F.X=g TO LEN (TTC) 
F.W=f TO 347; N.W 
P.STTC2K: MELD: N.X 





De volgende stap die ik graag zou willen raken is het mengen 
van computer- en videobeelden. De titels kunnen dwars door 
het "live" beeld worden geprojecteerd. Met film deed ik 

dat ook al. Voor dat doel heb ik zelfs al een programma 
“ondertiteling" klaarliggen. 


Mocht er ook voor dat onderwerp belangstelling bestaan, dan 
zet ik mij wel weer achter de schrijfmachine. 


J.B.Dekker 


Acorn computer club 
Overijssel/Gelderland 
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van een programma{gedeelte: 





van het moment. 





wordt een programma opgebouwd met de creativirei 





orden er weer een aantal regels 





er sen oplossing is gevonden 2 





eplakt, Een aantal nadelen van deze methode z erogrammeren zijn: 





= Ze totaal structuur van het progranma is hopelcos (spagettiestructuur 

« Hetgeen bijzonder vervelend kan zijn als er achter af nog iets 
verbeterd moet worden, 

- Het programma is meestal niet ers efficient (zowel met geheugen als 
ir “e snelheid), Dit komt onderandere door dat er verschillende gedee- 

ltes niet goed op elkaar aansluiten. 


= Je kans op fouten is sroot. 


Het is daarom beter om wat meer gedisiplineerd te werk te gaan. Dat zou 
volgens de volgende werkwijze kunnen gebeuren, Voor ieder programma 
worden de volgende stappen afgewerkt: 

= vooronderzoek 

— logisch ontwerp 


= prosrageren en testen. 


En ket vooronderzoek is het de bedoeling om alle informatie die van 





belans is voor het maken van het programma te vernamelen, Punten die bij 





Het vooronderzoek aan de orde kunnen komen zijn onderandere: 


= elke of watvoor uitvoer moet het programma leveren, 





- Walks of “=tvoor invoer is nodig om tot de sen e uitvoer te kunnen 








kamen 





= Welke 





wsebruikerseïsen moeten aa, at programma gesteld 





v as het vrogramma stoppen als «r inpisats Vai een setal 
een letter wordt ingevoerde. 
„ Is het mogelijk om het gewenste programma op & acorn te maken 


bv. is het geheugen groot genoeg, ‘ijn de vake: Eijden niet te 








lan: 

- vansluitend or het vorige punt er zij nodig om 
‘et progrenva “-gelijf te mat ad art « 

= Specifieke informatie nodig voor het ĳrosram ve bij een wiskundir 
srosra je berodinte “ormules. 
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Cm een 





voete proeran, 


a structuur fe verkr 





logisch ontwerp. Jit doen we in dit stut voice 
B : - x 
methode (van hoog= naar laar niveau) mbv flowerrts, Zet vaat als 


volgt te werk, Gerst maken we van het totaïe pro= 





flowcart Het is hierbij te bedoelin= det aleen 





srote lijnez 


worden weergegeven. zie voorbeeld1. Vervolgens we van ieder 





vlok een nieuve flowcart maken. Mocht hierbij blijken dat een 





flowcart te groot en/of te onoverzichtelijk worst dan is het ver- 
standig om een aantal activiteiten samen te nemen en deze verder 
uit te werke in een nieuwe flowcart, Ook kan blijken dat een bep- 
aald gedeelte programma meerdere keren voorkort dan íÎs het het 
efficientst om dat bepaalde gedeelte in een aparte flowcart te zet- 
ten waar naar in de andere flowcarts naar verwezen kan worden. zie 
vb 2, Door op de beschreven manier te werken wordt een duidelijke 


blokken structuur verkregen. 


Bij het omzetten naar srogrammacode is het de bedoeling dat de bij 
het logisch ontwerp opgebouwde structuur wordt sehandhaaft, Dit kan 
als volgt vorden bereikt. zerst wordt de flowcert van set trtale 
programma ‘de hoofdroutine) in code gezet, De verder uitgewerkte 


blokken worden daarbij zezien als subroutines (gosub's). D: sub= 





routines worden vervolrens in volgorde van aanroep achter de hoofd. 


routine geplaatst, De seriteeltes die meerdere keren voor omen “orden 











als subroutine achter «7. het arosramma genlantst. Voorts zijn er nog 

ern antal punten die “:nrer bijdramer aan de toorziehtigheid van à 

programa : = maak altijt een “op jet zov rem-statrerts wearin staat 
wie bet wrogramma ce … vt “eeft, welke datur ‘e i atsto verbeterins 
is aansesracht en hoe ‚et orosramma neet. 


- gebruik labels voor “zt snrinsen \r subreuines 





- dimensioneer (dim) —r-re arra 





het ararramma (voor 'n Seotdes 





- plants ‘iet onnesis va 





rezel, 


xXx 
het werve: vet Pic 


Bj 





Ô assrpaner de bars id vka 





amd practiae! (ie a pr Anerr vontleidins 
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Cm zeker te zijn dat er geen fouten meer in het programma aanwezis 
zijn is het verstandig voor het insehruik nemen van het programma 


alle moglijke situaties te sulerene 





Nu een voorbeeld om een beeld te geven noe het logisch ontwerp 





en het uited 





lelijke programma er uit kunnen zien. 


Erik Dukker, regio Delft, 


vbî 





print invoeren 





invoer 
keuze menu 


n 5 
| 


van a en by 














j optellen input $d print 


uitkomst 





er) 
TTT 








c 
aftrekken " 


PROGRANHACODE 





EN En 
einde  ; bezine } 0 ren “oor : Srik Dukker 850705 


10 dim A55); sos.A 


d 
! 20 if vd="4"; gos.B; ge 10 
30 if Bde!"; zo8.C; 8.10 








invoeren 





d van a en b 











hO end 
SOA in."optellen +"'Vaftrekken —!'" 
E ma | stopper ret'"!"keuze!Sdsr. 
daput a i print 608 vos. Dire '"uitkomst = "(asb)'? 
en b uitkomst 3e 
+ T 70C gos,Jijpe' "uitkomst = "(a-b)'!;r, 





BOD in.'"'geef serste getal'a,'"geef tw 





einde c 





eede setol''hir. 





GESTRUCTUREERD PROGRAMMEREN 





Wanneer je de basisgegevens van nrogrammatie en van de Basic-taal 
onder de knie hebt, wordt het interessant je programma's te trach- 
ten optimaal uit te schrijven, zodat ze niet alleen averzichtelijk 
en doorzichtig zijn maar ook minder kans maken oo fouten. 


Dit kan door meer "gestructureerd" te gaan programmeren, d.w.z. 
het programma een structuur geven door het volgen van een bepaal- 
de werkmethode. Aldus wordt het programma ook gemakkelijker lees- 
baar en zal het tevens rapper op punt staan ; soms is het zelfs 
sneller in de uitvoering. 


Principes "Gestructureerd programmeren" 





1, Vraag je eerst af wat het programma moet doen i.p.v. te be- 
ginnen met de vraag "hoe" : het hoe komt later. 


2, Maak vervolgens,op papier, eén structuurschets in "pseudo code. 
De "pseudo-code" is een 'pseudo-taal" die toelaat gemakkelijker 
over te gaan van gesproken taal naar de machinetaal. Die "pseu- 
do-code"' is zeer eenvoudig,soepel en er zijn slechts enkele "co- 
dewoorden" te onthouden. 


5. Fenmaal de structuurschets af is, hlijft het overschrijven naar 
de eigenlijke programmeertaal. 


De""Pseudo-code” voor gestructureerd programmeren 





Een structuurschets in "pseudo-code" maakt enkel en alleen gebruik 
van navolgende drie basisconfiguraties, 


Pseudo-code overeenkomstig ordino- 


eram 











séauence 
(volgreeks) 


overeenkomstig ordino- 
gram 






Pseudo-code 


















2 IF...THEN,.. IF. condition 
ELSE 1 OTHEN S 1 
(als...dan.. : ELSE 5 2 

zoniet) 





: 
END IF 








3 DO...WHILE DO UNILE (UNTIL) 














(doe. inmid- ‘ condition 
dels) N “sequence 
d.w.z. zolang| 

END DO 


de conditie 
o.K. is 


Opmerking : Wil men een sub-programma (="segment" in pseudo-code) 
dan gebruikt men het woord "INCLUDE" (tussenin-schake- 


len) ="GOSUB" 


bv. PGM 
4 INCLUDE "hehandeling" 
END PGM 
SEGMENT "behandeling" 
!schrijf "ACORN!" 


END SEGMENT 


Voorheeld nseudo-còde structuur, 


Ik lees op cassette willekeurig opgenomen getallen tot ik een "jr 


(zero) tegenkom. 

Tijdens het lezen schrijf ík de getallen op in tabelvorm. 
Daarna zoek ik de grootste waarde on - die noem ik "max." - 
en teken ze op met de respectievelijke index-teller-stand, 
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Opm 5 


PROGRAM 
= himensioneer tabel Op het einde zal de index (« 
- indexstand = 1 volgnummer) het totaal aantal 


elementen geven van de tabel 
= lees opname 
DO...WHILE opname # 0 


! index = index +1 
1 lees opname 
END DO 
= max-index « 1 ik initialiseer de index aan 
“max. op het eind van het 
programma, 
= teller = Î 
- max, = 0 "max'' ben ik niet verplicht te 
initialiseren 
DO „…. WEILE teller index aldus ziet men of het eind van 
| de tahel is hereikt 
: ‘ IF tabel (teller) tahel 
! max. index) 
Ü 4 THEN max.index = teller 
t Î (ELSE) ELSE staat tussen haakjes omdat 
{ t het hier niets doet. 
VEND IF 
N =teller = teller + 1 
END DO 


- max = tahel (max.index) 
- schrijf - max., max. index 


END PROGRAM 
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Vertaling van de basis-configuratie naar HASIC 


1.Sequence : in de opeenvolging van instructies S 1 
Ss 


EN] 


2.IF. THEN. ..ELSE : 


100 IF condition coro B} 


! GOTO IF condition 
m8 s1 THEN $ 1 
M ELSE S 2 
don END IF 
ofwel ammnmvervenvvnernveveervennnnnenmmenne en 
100 _ IF Condition _GOTO 
: 
' s 1 
: GNTO _—_ 
5 x opm. : “condition” is het 
200 s 2 omgekeerde van “condition” 
: - condition is ACR 
soo B) 


- Condition is AR 


3,N0,..WHILE 


toc (8) IF Condition GOTO 
7 
H s 


: PO WHILE Conditio 
Zoo Goto Zl ' 


, s 

; END DO 

300 ® vervolg van het programma 

Opm. : DO,..WHILE kan soms vertaald worden door een FOR,..NEXT 
of zelfs een DO...UNTIL 
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Vertaling van het Voorbeeld in pseudo code structuur naar SASIG 


10 


20 
30 


40 
100 
110 
120 
130 
140 
200 


210 
220 
230 
240 


250 
260 
270 
230 
290 


DIM TT (100) ik dimersioneer op 100 als ik 
weet dat er minder dan 100 zullen 
gelezen worden. 

Ie 

A= FIN "" hierdoor krijg ik de melding 
“PLAY TAPE" 

GET. A 

Arrr A=B coo B 

TT (1) « A 

I= Iïe1 

GET (A 

Goto El 

B]REM Hier is het lezen van 
de cassette beëindigd 
Mei dit is de max.-index 
Ned dit is MAX die ik moet initialiseren 


FOR X= 1 to I . 
Er ij (x) YT (M) then 


NEXT X 

Ne TT (M) 

PRINT "Het MAXIMIJM is'' N 
PRINT "De INDEX van MAX is" M 
END 


Opmerking : 


INA 


Altijd programma's trachten te maken met zo weinig mogelijk 
GOTO's : niet hang zijn sub-programma's te maken. 
Alleen het programma uitschrijven na er goed over nage- 
dacht te hebben en de structuur ervan eerst op papier 
zetten. 


DIEKE 


ASSEMBLER CURSUS DEEL Z 


Deze aflevering saat over de tot nu toe nos niet behandeide 
adresseer methode en instrukties. Behal ve de interupt 
instrukties zijn na deze aflevering alte 6582 instrukties 
behandeld. In de voltsende aftieverins zullen de interuets worden 
behandeld (zowel hardware als ook de software interupt.) 


DE PRE-INDEXED INDIREKT 


Aitereerst de nos oversebteven adresseervorm: pre indexed 
indirekt. De schrijfwijze voor deze, is LDA (#70,X). #70 is hier 
een voorbeeld, Het mas iedere zero pase adres zijn. Wat sebeurt 
er: De waarde van het X resister Wordt bij de waarde van het 
zero pase byte opgetetd, wat in het voorbeeid dus #78 is. Ste 
dat het X register met @#19 seladen is en #79 de waarde HAD 
heeft. X wordt nu bij #78 opseteld. 9#10 + S#R0 = S#B9. Dit #50 
vormt het ADRES waar de instruktie nu sesevens vandaan haalt of 
naar toe brenst. Het tase deet van het adres staat op #80 en het 
hose deet va het adres op #B1. Om het te verduidelijken een 
voorbeeld als of het basic was. 

18 H=?#78+X CH 15 TIJDELIJK HULPJE) 

28 P=?H 

38 P=P+? CHHI) «1 O2 

Dit is een vrij insewikkelde manier van adresseren, vandaar dat 
deze ook pas na 7 afleveringen wordt behandeld. Deze 
adresseervorm wordt niet echt vaak sebruikt. (een troost voor 
desene die het na 3 maa! selezen te hebben nos niet besrijmen.) 
Een voorbeeld: 

18 REM PRE INDEXED INDIREKT 

29 P=#2808 

38 4BA=0S '#BI=KDD: #7 D=AO 

48 [sLDR S#2A 

Se LDX 9#10 

EA STA C#7B, X) 

78 RTS:1 

850 LINK#2880 END 

Dit prosramma zet een sterretje links boven in beeld. De BASIC 
eauivalent zou zijn: 

18 REM PRE INDEXED INDIREKT BASIC 

20 ?#B0=80 ; MB1=#BE: 7 #7 GzitAO 

30 X=#18 

48 A=#2A 

SO H=R7D+X 

50 P=IH 

78 PaP+I CHE 1D 18 

88 ?P=A 

30 END 

Pre indexed indirekt mas alleen met het X resister. Met het Y 
resister kan dus niet. 
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Le instruktie BIT 


De BIT instruktie is een variant op de AND funktie. Bij een AND 
instruktie wordt de accu se 'AND’ met een setal en het resultaat 
komt in de accu te staan. Bij een bit funktie wordt ook se AND 
doch tussen de WAARDE van de accu en een ADRES. Het enise wat 
sebeurd is dat het status resister wordt bijgewerkt. In de accu 
veranderd niets. Met een BIT funktie kan b.v. semakkeltijk worden 
setest of een bepaald bit uit een adres hoos of laas is. 
VOORBEELD: 
Pz#283803 ESLDAANDAIBIT #280005JMP #2500 
42808 heeft nu de waarde #R3, want dat is de machine code voor 
LDA See, Bij de BIT test zal nu het volsende sebeuren: 

ACCU d900 2100 
742850 1919 1001 


== & 


Het resuitaat is O, dus de Z flas is hoos. Omdat deze hoos is, 
is het dus absoluut zeker dat bit 2 van ?#2890 laas is. Als de 
accu seladen wordt met een andere waarde dan kan er b.v. een 
ander bit setest worden. 

Met een BIT test sebeurt nos iets speciaals. Als het meest 
linkse bit van Cadres} hoos is: dan wordt het N bit vit het 
status resister hoos (zoals bij iedere bewerkins die sroter is 
dan #7F), Het speciale nu is, dat ats bit 6 (de op dén na meest 
tinkse ) hoon is, de overflow fias V seset wordt: en is bit 6 
taas dan wordt of is de overflow flas laas. Dit is semakkelijk 
te proberen! de repeat toets van onze ACORN zit vast aan bit 6 
van WBBO2. Ais met de MONITOR door het volsende prosrammatie 
se-traced wordt: dan ziet u als uv de rept toets indrukt, dat de 
V flas seset wordt. Pa#20905£5BIT#BOG2 3 JMP#2090 





De BMI en BPL 


Daarnet is al sesproken over het N bit, Dit bit wordt seset 
zodra een bewerkins een uitkomst sroter dan #7F heeft, Met de 
BMI wordt sespronsen als de N tlas 1 is. Met de BPL wordt 
sespronsen als de N flas 0 id. voorbeeld: 

18 REM BMI EN BPL TEST 

20 DIM LLS 

38 Pe#2800:L 

48 LDYAN7Fs LDACH" +* 

S@:LL& STA #5089. Y 

68 DEY 

70 BPL LLA 

88 RTS 

90 LINK#280A3END 


De BVC en BVS 


Zo'n zelfde verhaal seldt ook voor het V bit, De V staat voor 
Overtlow flas. BVC Branch on oVerflow Clear en BVS Branch on 
overflow Set. voorbeeld: 

18 REM OVERFLOW DEMO 

29 P=#2880:[ 


Dd 


0 BIT #BOUL 

4@ BVC #2838 

58 JSRHFDLA BLEEP ROUTINE 
68 JMP #2400 

78 1:LINK#2800 


Dit laatste voorbeeld brenst nos een klein probleem aan het 
ticht. Om dit prosramma te stoppen is een 'BREAK’ nodie, want de 
ESCAPE toets goet niets. In BASIC wordt voordat een nieuw 
statement wordt seinterpreteerd, eerst sekeken of de escape 
toest werd insedrukt. ZO ja: dan sprinat hij naar #C2CF en zo 
nee, dan saat hij vrolijk verder met interpreteren. Omdat in het 
voorbeeid niet sekeken wordt naar de escape toets, heeft de esc. 
toets ook seen effekt. Toch is dit er eenvoudis in aan te 
brensen: de est. toets zit namelijk aan het vijfde bit van 
KBOBL. Ars deze wordt insedrukt, dan is deze laas. De toets kan 
dus ats volst worden sesisnateerd: 

LDA #B881 

AND a#23 TEST OF VIJFDE BIT KOOG IS 

BNE VERVOLG 20 JA, VERVOLG 

JMP #C2CF ZO NEE, DAN NAAR ESCAPE 
VERVOLG stokte 
Het voorbeeld zou er nu als volst uit kunnen zien: 
18 REM ESCAPE FUNKTIE 
28 DIM LL23LLi=-1 
25 FOR N=@ TO £ 
3 P=25005L 
4@:LLA LDA #B821 


58 AND at22 
68 BNE LL1 
7e JMP #C2CF 
88:LLi BIT #B022 
38 BVC LLS 


188 JSR #FDIA BLEEP 

118 JMP Lig 

128 I3NEXT N 

138 LINK LLO 

148 END 

Het kan zo, maar het kan ook met een ROM routine. In de BASIC 
ROM zit namelijk ook al zoiets. Als sespronsen wordt naar #CS84 
Cuet een JSR) dan sprinst deze zelf naar #C2CF als de esc. is 
insedrukt en als deze niet is insedrukt dan keert deze via een 
RTS weer terug. voorbeeld: 

18 REM ESCAPE MET ROM ROUTINE 

20 P=#25085[ 

30 JSR #C5B4 

48 LDA a#S@ 

5D JSR H#FFF4 PRINT ACCU ALS ASCII OP BEELD 

68 JMP #2589 

708 JsLINK#2800: END 


De NUF instruktse 


Deze instruktie (Na QPferatson) wacht sedurende 2 clock sulsen, 
Verhoost de prosramm counter met 1 en vervolst met de vol sende 
instruktie, Het is een 1 byte instruktie en bewerkt seen 
resisters. De NOP kan worden sebruikt ‚n prosramma's waar de 
arecieze tiid een eis ig, b.v. freaventies e.d. of ter opvul lins 
ais een bepaalde instruktie moet vervallen, Deze kan dan worden 
vervangen door de NOP, 


SAMENVATTEND : 


«PRE INDEXED INDIREKT 
*BIT AND DE ACCU EN EEN ADRES 
*BMI EN BPL SPRINGEN ALs N BIT WEL or NIET hi Is 


«BVC EN BVS hi v 
#ESCAPEN MET ROM ROUTINE JSRICSB4 
«NOP 


LEENDERT BIJNAGTE 


18 REM DIM, GRAFIC 
28 £2=390 

38 CLEAR4 

48 FOR N=8 TD 180 

58 XSe=2eRAD N 

Ld AREKZKSINGOLASZ) 
78 KX CARASINKS+ 120) 
88 Yan (ARKCOSLS+IE) 
90 IF N=@ THEN MOVE XY 
188 DRAW X,Y 

118 AREAZKCOS (LSm2) 
128 Kek CARKCOSKS+ 120) 
138 Yak CARESINNG+IE) 
148 MOVE XY 

158 NEXT N 

158 END 








EEN STUKJE PRAKEIJK VOOR DE RSSEMBLER CURSESTEN 


Wanneer daar aanteidins toe is: wil iK de assembler cursus 
verduidelijken net een praktisch sedeeite. Het saat hier om 
prosramma's die niet zozeer een effectieve waarde hebben doch 
meer het karakter van een leerzaam iets. Er is naar gestreefd 
een zo duidelijk mogelijk beeld te seven van de algemene 
Assembler prosrammeer stij!t, Truukses: srapjes en alleriei 
andere slimmisheden die een ervaren assembier prosrammeur weet: 
worden hier per se niet sebruikt. Er is sestreefd naar een 
effectieve schrijfwijze: maar niet altijd naar een zo kort 
nosetijke. Dit komt namelijk de duidelijkheid niet altijd ten 
goede. Verder sta ik open voor nieuwe sussesties die behandeld 
moeten worden in de assembler cursus, want de cursus loopt tesen 
het einde: nu atie instrukties behandeld ziijn. 
En dan nu het prosramma. Het is het omschrijven van een basic 
prosramma naar assembler. Het programma: 

18 REM CRC SIGNATURE TEST 

29 REM BRON: ATOM MANUAL BLZ. 93 

38 INPUT "ROM ADRES ",P 

40 C=O; Z=WPEFF 5 Y=t2D 

50 FOR QG2@ TO #FFF 


68 A=P?Q 

7e FDR B=l TO 8 
88 C=C4&2+AEL 
38 AzA/2 


i88 IF C)Z THEN C=C:iY;C=C&Z 

118 NEXT B 

128 NEXT Q 

138 PRINT "SIGNATURE IS:#",&C 

148 END 

Het is altijd raadzaam een stroom diagram te maken van dit soort 
zaken. Zie de bijtase. Uit het stroom diasram weten we nu een 
aantal sesevens: 

*we moeten steeds blokken van 4&K nemen, dus 16 blokken van 255 
bytes 

we nemen hiervoor de POST INDEXED ENDIREKT 

“delen door 2 is een LSR instruktie 

*als C aroter is dan #FFFF dan moet er 3e 'exor'ed worden. C:Y 
C=ttit ASIA MAAL 1411 

Y=0098 2329 M810 1101 


1111 111 1101 OO1D 
Hier uit volst dat alleen het lOw-byte van belana is bij de exor 
«we hebben 2 tussen: 
1 adres lus 
2 reken tus 


De adres tus kan alvast senoteerd worden: 


LDA 2#18 
STA #78 TELLER VOOR 15 BLOKKEN VAN 255 BYTES 
LDY A8 


fer 
STY M7, } SAMMEN MET #7B HET RESULTAAT REGISTER 
ST. wa 
NEXT LD 78), Y 


RL 

BIE MEXT 

INC #71 

DEC #°2 DEC 16 BLOK TELLER 
BNE NF (0 

RTS 


De buitenste lus uit het diasram is nu een feit. De 2 bytes 
vermenisvuldisins io een ROL inetruktie. Als van het low byte 
een carry overdracht ontstaat kan deze. als direkt er achter aan 
het hish byte wor. * seschoven, direkt worden door seschoven in 
het hish byte. Als, door sevols van de ROL instruktie van het 
hish byte: weer ee arry ontstaat, is het resuttaat sroter dan 
FFFF en moet er dui 9e exored worden. In resel 20 staat de 
A=A/2 opdracht, Als d° wordt vervansen door een LSR instruktie, 
dan staat het bit wa‘ eerts op bitplaats B stond: nu in de carry 
(na de LSR instrukt' >) Als direkt erna de vermeniavuidisina ROL 
ROL doen, dan wordt r + carry van de deling in low byte seschoven 
en de carry van Ion byte wordt in hieh byte seschoven en de 
eventuele carry var. high byte wordt sebruikt om te testen of het 
resultaat sroter is dan BFFFF. Het X resister kan worden 
gebruikt voor de B aal Î bit teler. De rekentus zou er dus zo 
uit kunnen zien? 





LDX &#@8 FOR Bet TO 8 
sLL1 LSRA ‘sA/2 

ROL. #7A 

ROL #7B EZEL 

BCC tL2 

PHA F% A TIJDELIJK OP DE STACK 

LDA #7F. 

EDP 2 2D 

STA #7A 

PLA HAAL A WEER VAN DE STACK 
stL2 DEX NEXT B 

BNE LLi 


Dit is het eisentijke prosramma. De uitvoer is naar eisen 
fantasie, Het kan zoals het op de bijltase staat. Dit prosramma 
duurt 1,2 seconde en de basic versie duurde 6 minuten, 

Probeer zelf ook eens dit soort kleine basic prosramma's eens te 
vertalen naar assembler, want op die manier komt de ervarins in 
het assembler prosrammeren. Een volgende keer zal ik het 
Prosramma van Ärie Marchal, wat iedere IEK RAMmer bij zijn print 
heeft sekresen.: ver-machine-talen. Denk er eens over na en 
probeer het zelf vast op te lossen. 

5 REM AUTEUR: AFZE MARCHAL 

18 a=2 

20 FOR I=t3 TO #FF 

38 Az=I«256 

48 IF ?RO1S OR A?1 OB THEN GOTL 88 

58 PRINT? &I " * 


Ea Je3;D0 

70 PRINT $A?J 

75 UNTIL A?J=13 OR J=26 
88 NEXT I 


90 PRINT * s9=8:END 
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BIJLAGE ASSEMBLER CURSUS 












START 


LAAD ROM ADRES 


ROM ADRES IN TELLER 


C=Cx2+A61 


MET #2D 


LE 8 BITS 
GEHAD 2 











TOT DE VOLGENDE KEER 


BREM CRC TEST 
IREM BIJLAGE ASSEMBLER CURSUS 
2DIM LLS 


SFOR NeB TO SILL(NDe-f NEXT N 
4FOR N=@ TO 1 
SP=#2880: C 
18 LDA 218 
2e STA #72 
se LDY ser 
48 STY #7 
52 „T ,7B 
En STY #78 
78:LLB LDA (#78), Y 
83 LDX a#@8 
SO:lLi LSR A 
188 ROL #7A 
118 ROL #7B 
120 BCC tL2 
158 PHA 
148 LDA #7A 
158 EOR @#2D 
168 STA #7A 
178 PLA 
188: 2 DEX 
138 BNE LLi 
220 INY 
218 BNE LLOG 
220 INC #71 
230 DEC #72 
248 BNE LLS 
258 RTS 
2EOIINEXT N 
27BINPUT “ROM ADRES (BV. #FG)",P 
28847 1eP 
290L INK #2800 
3B3C= #7 Bett 1 08+07A 


SIGPRINT "SIGNATURE IS 3",&C’ 
S20END 


LEENDERT 
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Oostkapelle, 4 juli 1985. 


Aan: T. Otten 
J.A. de Gravenlaan 17, 
Zoeterwoude. 


Hierbij deel ik u mee dat het telex-besturingsprogramma in het druk- 
werk-archief aanwezig is. Het is niet hetzelfde programma dat ík u 
destijds toegestuurd heb, maar het betreft een sterk verbeterde versie 


welke efficiënter, flexibeler, gebruiksvriedeliĳjker en ook nog korter is. 


Eigenschappen: — koppelen met CTRL-B;(of PRINT $2); 
- ontkoppelen met CTRL-C; (of PRINT $3); 
- mogelijkheid voor Ab-indeling; 
- ie geschikt voor zowel RAM als EPROM; 
- gebruikt geen Zero Page adressen; 
= evt. karakter-wijzigingen gemakkelijk aan te brengen; 
= totale lengte is 354 bytes. 


De aanwezige documentatie-set bestaat uit: 


- gource-listing van het programma; 

- commentaar bij de assembler-listing; 

= beschrijving voor het maken van de object file; 

- gebruiks-aanwijzing; 

- toelichting over het toegepaste principe; 

= aanwijzingen voor alternatieve karakters; 

= samenwerking met ROM's e.d. voor zover bekend; 

- beschrijving en schema's van de benodigde hardware; 
= literatuur opgave over dit onderwerp; 


Het geheel omvat 8 Ab-bladzijden en is verkrijgbaar onder de naam 
"telex-besturingsprogramme''. 
Ik hoop hiermee de club van dienst te zijn geweest. 


Hoogachtend, 


Afz: J. Jobse Jr, 
Duinweg 35, 
Oostkapelle. 


AWERK 


Dit is het tweede deel van het overzicht van het landelijke drukwerk 
archief,Het eerste deel stond in acorn nieuws nr.2 '835 op bladzijde 43. 
In dit overzicht worden de categorieën ALGEMEEN en HANDLEIDINGEN 
besproken.De categorie OVERIGE PROGRAMMA'S is veel uitgebreider dan de 
3 titels in het vorige overzicht maar het lijkt mij niet zinvol om dit 
verder in acorn nieuws te behandelen.Ook volgen hier nog enige aanvul= 


lingen op het hardware gebied, 


ALGEMEEN 


Newsletter Atom user group nr.1 "80 
id. nr.2 '80 

id, nr,5 '81 

id, nr,4 '81 

ià. nr.5 '82 

Verglijking VIC20/ATOM/PET/APPLE II 

BBC microcomp. technische specifikatie 
BBC microcomputer,beschrijving (WW 03.82) 
Survey Atom software 

ROM routine aâressen (Cxxx,‚Fxxx) 

CHIP test Acorn Atom 


Review Acorn Atom 


HANDLEIDINGEN 


Atom disc pack 
Atomstore 

ECD database 

Lisp theory & practice 
Forth 


HARDWARE 


BBC/Atom graphics digitiser 
Schema TX als monitor (zie A.N. 2 '83 } 
Telex als printer 


3 interface schema's, het beetuuringsprogramma 
en een zeer goede beschrijving van dit programma, 


blz: 


12 


11 
10 


42 


Um Nd 


20 


11 


74 
60 


code: 

A O1 

A 02 

A 03 

A O4 

A 06 

PC 01.82 
BBC O1 
BBC 02 
XG 07,B2b 
A 05 

CH 06,81 
EG 10,81 


M O1 
M 02 
M 03 
M 04 
M 05 


PC 03.83 
E 06 
H 07 
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Niet alle etukken zin vrij verkrijgbaar. 


Ale U een artikel wilt bestellen informeer of het al in de regio aan—- 
wezig is. Ie dit niet het geval dan kan het gewenste stuk bij mij worden 
besteld, (Als het mogelijk ie via de "drukwerkoan” van de regio). 
Bestelwijze: Alleen schriftelijk onder vermelding van titel(s) en code- 
nummer(s). Gelijktijdig moeten de koeten worden voldaan. Dit kan door 
biĳĳsluiting van een girobetaalkaart of een eurocheque, het bedrag kan 
ook worden overgemaakt op mijn girorekening nr. 4229155. (bedragen on- 
der f1,50 mogen in postzegels worden voldaan). 


Kosten: 1- 3 kopieën (A4) f0,65 
4 7 kopieën f1,20 
8-17 kopieën f1,80 plus f0,15 per kopie 
18-45 kopieën 2,60 
46-90 kopieën f4,75 


Ben volledig overzicht van dit en een aantal regionale archieven kan 
bij mij worden verkregen, De kosten hiervan zijn f2,00 


Drukwerk archief Acorn computer club 
pea. Frank Benschop, 
De Blauwe Wereld 49, 
13598 EP Muiden, 
tel: 02942-3650 


Een KNIPPERROUTINE (uit: Acorn Nieuws Noord, mei 1983) 


Met deze routine kan een gedeelte van het scherm knipperen 
(normaal-inverse-normaal etc.) totdat de "shift"toets ingedrukt 
wordt, 


:LL1 LDY O 

JSR #FB81 (voor langzamer knipperen: FB7A) 

:LL2 LDA #816A (begin adres van het knipperend vlak) 
EOR #80 
STA #816A ( id, ) 
INY 
cPY #0C (lengte van het knipperend vlak) 
BNE LL2 
LDA #8001 
AND #80 (AND #50 voor wachten op "CTRL" toets) 
BNE LL 
RTS 


Deze routine gebruik ik voor (opvallende) aankondigingen in een 


rogramma, 
prog R,‚ van Drunen. 
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Het is nu ong, een half jear geleden dat ik het bendjeserchief 
van Mevr, Bruins heb overgenomen,Na enkele problemen in net begin 
is nu in de meeste regio's een copie van het totale archief aan- 
wezig,Ik zal voor A‚N,5 een lijst maken met de adressen van 
de dan bekende(hopelijk allemsal) regionale archief houders. 
Verder ben ik bezig ou het aantal banden (nu 10) met enkele uit 
te breiden, 
Ik denk hierbij aan: 

—= een band met utilities(database,uitbreiding CRL enz, ) 

— een band met spelletjes 

— een band met programma's voor radio amateurs 

— een band met wiskunde programma's, 


Als er mensen zijn die denken dat ze Antereasantge programma's 
hebben, die kunnen deze bij hun regionale archief afgewen, 
Hieronder geef ik nog even het huidige archief, 

Deze cassette's zijn bij de regio archieven te bestellen, 

Heet u niet wie dit beheerd, neem dan contact op met het regio 
bestuur. (zie A.N. 1/'83), 


Nico Stad (regio Noordholland) 


BAND 1. eeee«seefruitautome,yahtzee, cubicrow, breakout, art 
BAND 2,...s..eesmorse 1h2,rtty,feax 

BAND 3eeeeeveeeediv, disasseublers en monitoren 

BAND 4eseevvveecälles uit atomic theory & practice 

BAND 5, » „ schatkband 

BAND 6, vele utilities,soft-VoU,sorteren en printen 
BAND 7Jeese.veeeediv. programma's van wim drnst 

BAND 8,seeeeesoediv. time data spelen 


BAND 9,eseeeeevemonitor Roel Heuvel,schiphol,forth,danmen 
(gestapelà geheugen minimaal vereist) 





BAND 1... vele hobbiescoop pro; ma's (gestapeld geheu- 
gen minimaal vereist 
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T _PROGRA.MAIS ZN HUN COPI-ÉN 2 


Iedereen die fabrieksprogramm"s heeft en deze regelmtig gebraikt 
ergert zich elke keer weer aan het feit dat het laden zolang 
duurt,Elk ander programm kun je makkelijk op 1296, AUD overzet- 
ten‚mar de meeste gekochte programma's zijn beschermd, 

Hoe worden deze programma*s nu bescherud: 


Bij het SAVEN van in programm in de fabriek wordt in de program 
me naam een contrôle=code meegegeven.Dat zijn vaak de volgende 
twee: 


LCTAL-C (P,$3) = printer uit 

CTRL-U (P,$21) = beeldscherm uit 
Deze worden dan voor of achter de naam geplaatst en wia een 
hulpprogramma wordt dan het hoofdprogramms opgestart. 
De naam en de CIRL-codes zijn nog wel via het startprogranm 
te achterhalen, maar de adressen waar het programm moet komen 
en het startadres dat kennen we niet, 
Ik zat zelf met een aantal programma's ook met dit probleem en 

‘ dacht bij mijzelf deze gegevens moeten toch ergens in de ACORN 

geplaatst worden, 


Er is in ons speeltje mar één plaats waar ìk ze zou kunnen 
vinden en dat moet de ZERO-PAGE zijn, 


En ja hoor daar waren ze te vinden!!!! 


Deze adressen worden door K‚ v. Houten in zijn programma COPY 
(AN. 3/'83 blz,59) ook gebruikt. 

Als we na aCAT in de Z,P, gaan kijker dan vinden we daar alles 
dat we nodig hebben. 

Als voorbeeld neem ik "EHESS" van P‚P, dit omvat drie delen, 


1= CHESS het startprogramme 
ê=' het hoofdprgramma 
3 DATA het dataprogramme 


In de Z.P, kijken we naar äe volgende aäressen:. 
= ÁD4 &ÁD5" hier staat het BLOCKadres A28pó 





=— #D6 & ADT hier staat het LINKadres Á378A 
— #08 de BLOCKlengte Pi 

— ÁD9 het BLOCKnummer AO 
— AD van hieraf de naam "adr 


Op de twee spaties voor de naam staan de contrôlecodes 3 & 21, 
Nu kunnen we met 124 BAUD het programm weer saven, 


Veel sterkte ermee, 
Nico Stad 
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Beste Ton. 


Hierbij stuur ik je het herziene overzicht van block zero. 

Via deze weg wil ik ook G,B, Poot bedanken voor zijn aanvullingen 
en suggesties. Hij merkte terecht op dat ik niet reageerde 

naar aanleiding van zijn stukje in AN3, maar dat ik schreef op 
het artikel Stack & Queue van Frans (blz 19-21). 

Sorry dat ik dat niet duidelijk vermeld had. 

Als er mensen zijn in het land die aanvullingen op dit overzicht 
hebben dan zou ik die erg graag toegezonden krijgen. 

Met deze aanvullingen is het dan mogelijk om t.z.t. een nieuw 
overzicht te publiceren. 


Een programma om de FOR-NEXT stack te bekijken iss 


iOFOR I=#240 TO #2B8 

20 7I=0 

SONEXT 

4OFDR A=1 TO #11121514 STEP #151461718 

30 FOR Bet TO #21222524 STEP #25262728 

60 FOR C=t TO #51523334 STEP #55363730 
70 FOR Dei TO #41424344 STEP #45464748 
80 FOR E=t TO #51525354 STEP #55565758 


0 FOR Fel TO #61626364 STEP #65666768 

100 FOR G=i TO #71727374 STEP #75767778 
110 FOR H=el TO #81828384 STEP #05848708 
120 FOR I=l TO #91929594 STEP #95969796 
130 FOR J=l TO #ALA2A3A4 STEP #ASAGA7AE 
140 FOR Kel TO #BIB2B3B4 STEP #ESB6B7B8B 
150 PRINT"ESCAPE PLEASE" 

160 NEXT 

170 NEXT 

180 NEXT 

190 NEXT 

200 NEXT 

210 NEXT 

220 NEXT 

250 NEXT 

240 NEXT 

250 NEXT 

26ONEXT 

270END 


Een XDUMP van #240 tot #258 levert de grenzen van de stacks. 


Met vriendelijke groeten 
Theo van Rijn. 





Afz: Th. van Rijn. 
Bankastraat 56 
2585 EP Den Haag. 
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adres 
hex 


Nn 


NOD 0 
La 


16 


BLOCK 6 


inhaud 


error nummer 
lijn nummer dat geïnterpreteerd wordt 

pointer naar het character dat onderzocht wordt 

basic stackpainter (x) 

startadres statement dat geïnterpreteerd wordt. 

caunt cq kolomcounter. 

random nummer seed 

top 

werkruimte, 

adres van basic ERROR handler, normaal C9E7 

text space pointer 

aantal actieve DO-loops, 

aantal actieve GOSUB 's, 

aantal actieve FOR-NEXT loops. 

basicstack laagste byte 

pointer voor DIM 

basicstack, een na laagste byte 

basicstack, een na hoogste byte 

basicstack, hoogste byte 

basic werkruintetzie bv jsr&C3CB) 

x-coordinaat plotrautine. 

y=coordinaat plotrautine. 

O=move, I=sat,2einvert,overige clear (plotroutine) 
werkruimte plotroutine. 

basic werkruimte. 

floating point werkruimte. 

vrijzin gebruik bij AXR1, Josbox, manitor en FPTaalbox. 
(Zie gedetailleerd overzicht van dit gebied op pagina ) 
DOS werkruimte 

COS werkruimte. 

check som lees en schrijven van/naar cassetteband. 
FLOAD indicatie:bit 7=1l negeert bloknummers. 

VDU-ram adres begin van de regel waar de cursor staat 
DE bevat 00,20,40 enz. :;DF bevat 80 of 81. 

cursor positie in VDU-regel bevat OO tot 
na P.$21 (stop scherm) 80 tot BF 

vorm van de cursor:0=weg,#8O=wit blokje. 
werkruimte. 

aantal regels die nog op het scherm kunnen als VDU mode; 

bit 7=t pagemade aff. 

soort characters dat gevormd wordt, 7231=0 terug naar normaal. 
werkruimte. 

MON als nul, NOMON als negatief, als positief wel PLAY en 
REWIND TAPE, maar miet RECORD TAPE. 

COS werkruimte. 

character dat niet naar de printer gezonden wordt (normaal 
OA, linefeed) 


werkruinte. 





100, 15 
140, 17F 
180, IFF 
200, 201 
202, 205 
204, 205 
206, 207 
208, 209 
2oA, 20E 
20C, 2oD 
20E, 20F 
210.211 
212, 213 
214, 215 
216, 217 
218, 219 
21A, 215 
21C,23F 
240, 24A 
23B, 255 
256, 260 
261,26B 
26C, 276 
277, 281 
242, 28C 
2aD,297 
298, 242 
2a5, 2AD 
2AE, 2B8 
2B9, 203 
2C4, 2CE 
2CF,2DC 
2DD, 2EA 
2EB, 520 


input 


li jnbuffer. 


string input buffer. 

&502 stack (neerwaards) 
NMI rautine adres;niet geinisaliseerd dour BASIC of COS, 
BRK routine adres,normaal C9D8 
IRQ rautine adres;normaal AOOD. 
lijninterpreteer routine adres,normaal FBEF. 
write charakter routine adres;narmaal FES2 


lees charakter 


load file routine adres;normaal F96E 

save file routine adres;normaal FAES 

RDRVEC routine adres;normaal C2AC (BRK) 
STRVEC routine adress;normaal C2AC (BRK). 
get byte from tape rtne adres;normaal FBEE,. 
put byte to tape rtne adres;normaal FC7C. 
print tape boodschap routine adres;normaal FC58. 


shut file rtne adres;normaal C278 (RTS). 
vrijsWHILESENDWHILE stack (PPT). 
naam FOR-NEXT variabele stack, 11 graat. 


FOR-N 
FOR-N 
FOR-N 
FOR-N 
FOR-N 
FOR-N 
FOR-N 
FOR=N 
FOR-N 
FOR-N 


ARRAY 


stack: stap grootte laagste byte. 


stack:stap grootte 2e byte. 
stackjstap grootte Se byte, 


stack;stap goootte hoogste byte. 
stack; TO waarde laagste byte. 


stack; TO waarde 2e byte. 
stack; TO waarde 3e byte. 


stack;TO waarde hoogste byte. 
stacksreturn adres lage byte. 
stacksreturn adres hoge byte. 
DO loop stacksreturn adres lage byte, 
DO loop stacksreturn adres hoge byte. 
GOSUB stacksreturn adres lage byte, 
GOSUB stacksreturn adres hoge byte 


POINTERS: 


routine adres;normaal FES4 


11 groot. 


14 groot. 


@ MA BB CC DD EE FF 66 MH IT JJ KK U M NM 0D PP DO FR 
EB EC ED MEE XF 20 IF1 F2 23 2FA 2F5 Fb 27 28 
Jb 307 308 SOF OA JOB JOC JD SOE 3OF JO 3 2 313 


321, 38C 1 
ta 


NTEGER VARIABELE: 


B C D EE F 6 .R IT 8 KL 

321 322 3 34 JZS F2 37 IMU 32 FA IB MC HO IE 
RC HD JE IHF HO Ht HZ HI HA HI Hb 347 349 HP 
357 358 59 FA IB IC MD IE ISF HO Wi 362 HS 
52 34 Wi Hb SI SO 3 JA IB HL HD HE HF 
SED, 3CO ADRES VAN LABEL: 

= 360 38F 31 JMS 395 37 3 IB ID HF JAL IAS MS 

= SE 3 392 398 36 JB IA JC JE MO JZ IM Mb 


3C1,3FC BASIC werkruimte. 


SFD 


getal 


m.b.t. COLOUR. 


SFE,SFF adres van point plot routine: 


F&E2 voor mode 
F758 voor mode 
F754 voor made 
F76D voor made 
F7AA vaor mode 


BUI O 


29 
314 


ESES. 
zE 


za 
318 


Ee 


es 


2FB 
316 


EE HEEL, 


2FC 
47 


8 
kiyd 


0 


368 
kend 


3AD 
JE 


20 
318 


8% BESH, 
Se HESG. 
ER BEEH, 
ER HELE 


SB 
Na 
88e 
ss 


310 SE SF 520 


ES SEHE- 
BE BEUE. 
NB BSBE. 
BE SIUG. 
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adres 
hex 


go,85 
87,88 
B9,8A 


8B,8F 
0,97 - 


98,99 


va, oF 


A0, A5 
A6 


A8, A9 


AA, AB 
AC, AD 


AF 


PPT e= 
AXRI = 


RUIMTE 


in gebruik bij de Toolboxen van 
Program Power(PPT), ECD(AXRÌ), en 


Âcorn Computer Club (Josbox). 


inhoud 


STEP en TRACE werkruimte 
PPT: 
regelnummer in AUTO mode 
increment in AUTO mode 
PPT werkruimte. 

AXRI werkruimte, 

PPT werkruimte, 
monitor werkruimte. 
DATA pointer AXRL, 

PPT werkruimte, 
monitor werkruimte. 
ECD-DOS werkruimte. 
monitor werkruimte. 
monitor werkruimte. 
aantal actieve WHILE-loops 
monitor werkruimte. 
laatste XIF conditie PPT, 
monitor werkruimte, 


regeìlnummer met de laatste DATA(PPT) 


monitor werkruimte. 
vrij 

DATA pointer (FPT). 
=1 ais PPT commando. 
PPT werkruimte. 


Program Power Toolbox. 
Josbox. 


Het weten waard. 


Het handboek 


vermeldt: 


(PFT) „ 
1=AUTOmatisch lijnnummering,O=geen AUTO. 
(PPT) . 
(PPT), 


PPT. 





Wie vuìt dit aan? (red.) 


#2800-#2886 Ruimte voor FL-pount varzabelen 49-%Z 
Maar wist U dit al: 


82837 -#28A1 


Low-byte van Fl-point array’ s 


#2BA2-$28EC High-byte van Fi-point array” s 


#285D-H2BFF Vrij 
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VOoDING 


zr zijn al diverse artikelen en ontwerpen over en van voedingen 
in het afgelopen jaar in ons clubblad verschenen, 

Daar zou ik graag nog een voedingsontwerp aan toe willen voe= 
gen. : 

Het is een ontwerp voor een smalle beurs en voor een gegarandeerde 
5W op de print. 

Dit komt door de derde draad(een soort zenuw),die op diverse 
plaatsen op de print op de 5 Volts lijnen wordt aangesloten, 

Als regulator wordt een 7855 gebruikt en de twee MJ 1955 zorgen 

er voor dat er door de 73f5 niet meer dan 24 mA te slikken 
krijgt.Het is mogelijk om met dit schema een voeding tot 

ongeveer 20 A te maken.(als de transformetor mar zwaar gengeg is) 
Dit ontwerp is afkomstig van Erik de Koniagsiiet Danke 


Nico Stad 


KOSTEN EXCL. KAST + TRAFO: : ax MILGSS 
mf 35e 






+5 V. 


SENSE-WIRE 
[DUMNE DRAAD) 


Neot van de redactie: 


Bovenstaande schakeling, die uitmunt door eenvoud, zou nog wat 
veiliger kunnen voor onze Atom, zodat ingeval van storing de 
Atom heel blijft. Als de spanning nl. onverhoopt belangrijk boven 
5V stijgt, dan gaat er in de Atom in één klap erg veel kapot, 
Een simpele overspanningsbevelliging (zie nevenstaande schake 
ling uit Acorn Nieuws: 2, '82) voorkomt ditt 


v So. Eigenlijk zou er dan ook nog een kortsluit= 
+5 Zener beveiliging moeten zijn, bijv. een zekering 
BTI00A CV van voldoende sterkte tussen de + van de 


elco van 10,000 uF en de rest van de schaken 
ling. Dan blijft de voeding zélf ook zoveel 
OFI mogelijk héél. 


Jook 


ov 


30 


mm een tn Fol roe rammer 00 5 


Het iS Mii op de eerste bijeenkomst van de veein Den 
Haas opseval ien, hoe weinis mensen iets wisten van het 
direct machinetaa! orosrammeren oo de atom. Daarom zal 
iK in dit artikel zo kort en bondis mosel;jk dit 
proneren vit te lessen aan de hand van voorbeelden, 


Ste! u wilt onderstaand arosramma door de atom laten 
vi oeren. 


18 DIM Pl 

2e £ 

58 JISRWFFEGsSTARE2I 
4S RTS 


Se > 
6 END 


RUN 


28 2935 

38 2353 29 EB FF JSRHFFEG 
Ze 2336 SD 22 BT STAKS22 
«& 2953 GA RTE 


Dit “orosranma neemt Sl bytes in beslas. Om dit 
prosranma kieiner te maken JOen we het volsende: 


Pat2338 
{ JSR#FFEG: STANS225 RTS 


ERE 
@ Sade 68 


Dit prosranma neemt slechts 7 bytes in besias. Het 
nadeel is echter dat men . het erosramma kan 
overschrijven met BASIC, Om dit te voorkomen kunnen we 
het "Sinciair" principe toepassen n!. het piaatsen van 
de machinetaal in een REM statement. Dit sebeurt weer 
aan de hand van een voorbeeld. De ounten moeten worden 
voorsesteid als spatie’ s. 


18 REM... 
END 


Daarna vraast men een hexdume Jaa om de plaats ve 
besalen waar de machinetaal moet besinnen.…. 


Xx. #2320, RE Nn 

zeeg: on qe A 52 4S àD 2E 2E 
zaag: 2 26 2e 2E 2E an MO 14 
2518: GS GE áá OD FF A2 GA O2 


Daarna wordt de P op de soede lokatie sebracht. In ons 
Ieval op #2906, 


Ps#2906 


GTSROEFES: STA&I22IRTS 

8 2306 24 EB FE JEREESS 
2323 ED 22 25 START 

8 230C 62 


Als we het arosramma listen dan zullen ar in net REM 
statement vreemde symbolen staan. Het orosramma uit de 
Ri is nu aan te rospen door LINK#2306 . 

Men moet er wel vrekenins mee houden dat er max:maal 66 
Tekens aeplaatrst kunnen worden. Ik hoor dat K een 
heleboel mensen wear een beetie verder heb senstpen on 
de wereld van de atom, an mochten er nog vragen Zin 
dan zal ik oe de bijeenkomst deze orzberen te 
beantwoorden. 

40 Frad Danrkaarts 


be kast wv/d ATOM 


De seneugenkaart en de schakelkaart kunnen aan een fiatkabel 
buiten de kast worden Sebrachtt echter binnen de kast saat ook. 
Aileen past de kast dan niet meer. Ik heb nu gekozen voor een 
seheei ‘nieuwe’ onderkast waarmee de estetische vormseving en de 
doetmatisheid v/h apparaat behouden biijven of zelfs verbeteren. 


e.e.a. saat ats volst. 

Stukken kunststof worden verwerkt volsens onderstaande maten. 

De dikte moet Smm zijn, liefs niet meer of minder. 

Vervolsens wordt de diaproiector tijdelijk sesloupt en wordt een 
stuk verwarmings element van ca, S50@mm (4 Ohm/m) tussen twee 
klemmen sespannen en aansesioten op de 12V, voedins. Ik sa vit van 
éen 189-152W trafo. 


Plaat een wordt op de semarkeerde plaatsen onder het etement 
seplaatst, ca. vijf minuten verhit en haaks omsezet. Dit uiteraard 
tweemaal. Na pas en meetnerk worden de stukken twee en drie met de 
aanseven verbindmiddel 'selast'. 

Nu moet met schuurmiddelt de haakse hoeken nos worden wessewerkt, 
en de zaak is bekeken. 

De bak is dan 37mm diep. Reken erop dat het pas na wat oefenen 
tukt, maar het is zeker te DOEN. 

Voor mensen die aan zo’n bak willen komen bestaat bij voldoende 
betanssteliins de mogelijkheid om volsens dit princiepe een kleine 
serie te fabriceren, 

Dit kan in blank ovc of in perspex. (doorzichtie kunststof). 


Bestelling seschied door overmakins van f40 voor pvc en 467. 5@ 
voor prspex op Siro rek.5457623 tnv. Moùsanto F. te Zwollé onder 
vermeldins °'ONDERKAST' en evt. tel.nr. 

Stuitinssdatum voor deadline volsende Acorn nieuws. Levering ca. 
14 dasen na ontvansst. 


Fernando, PVE lasmiddelt pvc lijm nr. 35 van Bison. 
Biesbos 155, perspex lasmiddel: chloroform, 
8052 VD ZWOLLE. evt. nadere info, : Gerhard Visser. 


zie ook de bouwtekening op pagina42 ; 
RR RR RA ES EEE EEE 


GEINVENTEERD BEELD. 


Voor een geinventeerd beeldscherm kun je op de plaats van link k 
{schema Atom) een inverter plaatsen, Met een schakelaar erbij kun 
je schakelen tussen normaal en geinverteerd beeld. Dit kan ook 
software-matig via een I/O-poort (b.v, VIA) en een Exclusief =Or= 
Poort, 

Als de I/O=poort op O staat is het beeld normaal. 


Uit “Acorntjesbrood" ‘83,1, 
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a = 576 mm 
b= 524 mm 
c = 446 mm 
d = 230 mm 
e= 42 mm 
f= 75 mm 
DETAIL 

centrering 


Plaat 1; 


d Bodem + korte zijkanten 


(korte zijkanten langs 
stippellijnen haaks orzetten) 


Plaat 2: Voorzijde 


Plaat 3: Achterzi:de 


SAMENSTELLING 


centrering(2x) 





"De bakken zelf zien er gaaf uit, ze zin voorzien ven 


een goede centrering van de computer, Boven- en onder- 


bak worden niet door schroef jes met elkaar verbonden, 


Hierdoor is zeer eenvoudig toegang mogelijk tot de +P 
schekelrars etc," 


£ldus de auteur. 


2HAPESHAPER Jan Wijnen 
Programma oa het construeren van een sbape-tsbel 
te vereenvoudigen. 


Het programma maakt gebruik van een joystick om 
de tekening in elkaar te zetten. 


10 Xn128; 296; Tet3SOO; NO ; DIMNS ;N70n0; N7 11; Ia0 

20 LaBOO1;Euk;FaY;Je1;?Tel - 

30 MOVEX, Y;SuT;Me1;GR, ; ME 1s0 

40 GOS.p;DOPLOT14, xr AIT; PLOT14, X,Y;KEIZ;WAIT;U.,Z OR?LC253 
SO IFZs64 RUN 

60 IFZa69 G.230 

70 IFZa83 G.290 

89 Am?Ls 255; BaA&30 

90 IFA&64 MaM: 1;DOU, 7L=255;G. 40 

100 IFA&128 GOS.230;G.40 

110 IFBC>2IFB<>4IFB O8IFBC>16G,40 

120 XaX+(Be8)-(Be2) ;YaTe (Ba16)=(Bet);PLOT(12+NT(ARI)) ,X,Y 
130 GOS,t;DOU.?L>253 OR M;G.40 

14OTREM vormen van de tabel 

150 IFJai Ial+1;2T=I;T?120;IF?T=0 GOS.n;R. 
160 HaN?(Ak1)*4;JaJ:412 

170 IFB>2 HaH+3;IFB>4 Had-2;IFB28 Hafl+1 

180 T3IaT?I+J°B;R. 

190n7T=255;P.$SO"NIEUWE PAGINA“S7 ;TaT+256; IQ 
200 LINKSFFES ;DOU. 2La255;XaZ; Yeal"; Jal;R. 

220 REM controle 

230 GR. ; 7E 120 ;MOVEE, FP; Ga5-256 

240 DOG=G+256 ; SHAPEG; U, 266255 ;MOVEX, Y; R. 

250 REM einde - . 
260 Omt;P.$30"SHAPE TABEL VAN: "&S' "" TOT: "E(T+2T) * 
270 P."AANTAL BLOKKEN :"(T=S)/256+1';E. 

290 KEM stap voor stap 

300 TeS;N?2e1;I20;Jal;GR. ;MOVEE, F; EB 120 

320 P,530''"STAP VOOR STAPT 

330 GOS.p;DOKEIZ;U.Z; IFZaCH"T"; 7TuI ; GOS, 230; G, <0 

350 Ial+1;1FI=256 Ia1;7T=255;TaT+256;MOVEE,F 

360 N7JaT?L;SHAPE(N+2) ;Xa7& SA ; Ym?W5C;MOVEX, Y; G. 330 
370ppa4;P.$30" X Y BYTES:"'X,Y,I;R. 











Gebruiksaanwijzing voor Shapesbaper 


Dit programma zet de tekouing die je met de joystick 
tekent om in een tabel die door bet SHAPE statement 
van de Josbox geïnterpreteerd kan worden. 

De plaats waar de tabel in het gebeugen kaut te staan 
wordt bepaald door de variabele T, 


Voor het tekenen met de joystick zijn er de volgende voorzieningen 
aangebracht. , 


@ : wis de tekening en begin opnieuw. 
E : einde,de tabel-lengte wordt precies aangegeven. 


CERL p lijnen trekken en punten tekenen (wenkel/repeat) 
SHIFT : controle van de tabel, 
8 : gs naar Stap voor stap. 
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ve knop op de joystick wordt gebruikt om te kiezen tussen twee plotmodes. 
Koop los geeft bij bewegen van de knuppel de eerste en kaop in de tweede. 
Het instellen van de plotsodes gaat d.m.v. de variabele N.Hierbij geeft 
N70 de plotmode aan met koop los en N?1 die met knop in. 
Er zijn vier plotmodes om fn te steìlen: O — move 2 = invert 

1 = set 5 —= reset 
Zie verder de gebruiksaanwijzing van het SHAPE commando. 


Stap voor stap 


Na het indrukken van de S hen je în de s.v.s. routine beland.Elke keer 
ala je op de spatiebalk drukt wordt er een geheugenplaats uitgetekend 
en er dus twee puntjes op het scherm gezet. 

Druk je dan op T dan lan je gewoon verder tekenen aan wat er tot daa ap 
bet scherm îs verschenen. 

De 8.v.s. biedt de mogelijkheid om een tabel van band te laden,deze tot 
bet einde uit te laten tekenen en er dan verder aan te werken. 


Beweren op band 


Er zijn geen routines ingebouwd om de tabel op band te zetten.Dit moet 
de gebruiker zelf doen.Het gaat uitstekend als je na op E te hebben 
gedrukt de tabel wegzet met : “SAVE"naan" (beginadres) (eindadres+1) 
Bet kan natuurlijk ook iu FCOS,alle adressen hex. opgeven. 


Dit zijn zo'n beetje de mogelijkheden.Een beperking tot twee plotmodes 
lijkt belangrijk maar valt ín de praktijk wel mee. 

Bet SHAPE statement is reuze bandig,als je de tabel eenmaal hebt. 
Daarom dit programma. 7 N 

Als er mensen zijn die interresse bebben in de kaart van Nederland in 
tabelvorm dan kunnen zij die bij mij krijgen. 


mmm 
DE JO8BOI 


Jos Eorsneier heeft de leden van de landelijke Acorn Computer Club de door hem 

ontwikkelde toolbox = inmiddels «lgeneen als JOSBOX bekend — vrij ter copiëriag 

aangeboden. Van dat recht As ook ín onze club ruim gebruik gemaakt. Er zullen 

uog maar weintg Atons zijn, waarin de Josbox ontbreekt. 

Is "Acorn Nieuws” heeft Jos de tnatructieset van zijn geestesprodukt toegelicht. 

Daarin ontbreekt de betekenis van de toutmeldingen (error codes). 

47. Fout in de lijst met argumenten bij PLAY. 

97, Na RESTORE geen DATA aanwezig. 

101. Interrupt (in de STEP-routine), die niet veroorzaakt wordt door timer 1 van 
de VIA (de enige, die is toegestaan). 

154. EDUMP,XDUMP,DISAS,COPY,RELOC of STEP werden ingegeven anders dan in de direct 
mode . 

193. Waar een adres moest worden opgegeven, is dat niet gedaan. 

248. Na COPY of RELOC stond geen adres in het RAM-geheugen. 

255. Verkeerd(e) argumeot(en) opgegeven bij RENUM. 


De Josbox gebruikt van pagina O de adressen # 90 tot #99. Aleen de laatste twee 
plaatsen zijn constant in gebruik als in een programma READ, DATA en RESTORE voor 
komen. Deze adressen bevatten de file-pointer. 


Testprogramma. Als het volgende programma'tje wordt ingetypt, dient na enige tijd 
OSEW op het scherm te verschijnen: 

X=0 (return) 

F.A=#A000 TO #AFFF,I=X:?A;N.A (return) 

P.X,32AFIC (return) 
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Joop Glasbergen 





big benny 





at zegt u? 
tt ie? 
CE m'n coryuter dst ock weet? 

Jazeker, met deze REAL-TIME CLOCK/CALENDAR weet hi: zel 





de datum. 








ij wordt gevoed docr twee = evertueel cplardvare — za*terijen ern is 
zien ver eer eigen PIA. Er wordt dus geen aansrraak gemaakt op ‘vrije! 

IA-poerter. Van deze PIA zijn nog zes poorter. over, waarven er echter 2 
\ er PES) gerererveerd zijn ve tcekomstige vitbreidinger (elterna- 
sieve schakelkaarl; komt er aart). De cverige 2 poorter zijn beschikbaar 
eer. goedkore É-pers cennecter (50 cert, TELEC, Groninger) en kunnen 
voor allerlei goeleirden worden gebruikt, We spreken echter af dat we er 
leer zignelen tinnen de computer ree zullen schakelen (niet extern dus). 

Het printje is — door vele avonden puzzelen — gecptimaliseerd cp 
minimale afmetingen {4 bij 3& cm) er wordt aangesloter: cp PL, Deze con= 
nector is oorspronkelijk bedceld voor getruik met het Econet systeem, 
"dat werdt door de meesten onder u tech niet gebruikt. 

Het gebruikte klok-IC (ongeveer f16,-) houdt behalve de tijd in 
er, minuter. en seconder ook nog de datum, wacnd, jaar en dag van de 
week bij, Boverdier is het in staat om softwarematig gestuurd interrupts 
te genereren net tusserpozen van één seconde, één minuut of één uur. 

Het printje zal docr de federatie 
worder uitgegeven. Het is dan van 
een soldeermasker voorzien, zodat 
ook minder ervaren clubleden het 
kunnen ronteren. Boverdien komt er 
eer. klein pakxetje met IC's (de 
MSMSB32RS er. de £221) en misschier 
een cenzectar voor FLê. De prijs 
ven dit alles ie nog niet precies 
tekert. maar ligt waarschijnlijk 
omstreeks de f35,-. De rest ven de onderdelen (wat weerstanden, transisto- 
ren en eer kristal) zijn ìn iedere electronica zaak verxrijgkaar. 

Over het kristal nog iets bijzonders: als je eer vrierdelijke horlo- 
ker tegerkomt er. je legt hem uit wat je aan het doer bert, dan is hij 
tereid je een oud (kapot) digitaal korloge te scherker, waar je dan 
voorsicktig het gratis kristal uit sloopt! 

Voer de zelf-printers is elders in het blad eer in sriegelbeeld afge- 
Arukte rrintlayout op ware grootte (let's hope). De achterzijde van die 
gina ir blank, zodat je ret treansparant-spray kunt werker. (zie pag. 4?) 

Y6ór ket bouwer wordt van C1 eerst het kopje geralveerd, Bovendien 
vet Fet solderen in de 3de t/e Tde rij van onder mooi vlak geteuren. Bij 
het bouwer vorder. eerst de IC-voetjes gemonteerd, daarna de weerstanden en 
als leatete de transistorer. Let op de cansluitinger ven de condensatoren 
er ste diode, RIÉ MOET weggelater werden als je geer oplaadtare tatterijen 
uikte. De connector A2 wordt tijders het solderen een beetje scheef ge- 
ikt, zodet de tovenkant iets richting PIA neigt. De aansluiting voor de 

tterijen bevindt zick rechtstover, Let op de drie dravdkruggen. 
Bij deze PIG BENNY hoort natuurlijk eer programma dat de informatie 
£ de PIA orzet in iets kruikbaers,. Het is eer uriverseel Fruikbare 
tine geworden. Als je iets wilt zetter noet de avcumulater gelijk 
PC pijn, om te tezern gelijk aan +89. Het X-register in #“O voor de 
isÂ, s36 voor de datum en #60 voor de dag var de week. Ce de tijd te 

zeiver tent de inforratie tijdelijk in de stringkufser op 10, 4 
Am koeS0s Ent AO 30" LINK HLSOO, Om de tijd weer te lezen wart 
à 












































































Ko nEs LINK #2B00;P. 84148, Voor de datur: $HIO="itec jd} er. voor 
ie ier van de week: 8140-"5" (vrijdag). 


C2T3DR16 
R6/1 


Tac} 
R17 


R8/10 








c4 A2 R11/14 


Voor gekruik of deze manier mogen de regels 290 
ifm 360 worden ‘eggelaten. Behalve deze standaard- 
subroutine hebben we ook maar alvast wat state 
ments geschreven. Het zijn de statements TIME, 
DATE en DAY. TIME begint bij label LL4, DATE op Ll4+3 en DAY nog weer drie 
plaatsen verder. In plaats van een syntaxdefinitie geven we eer paar voor 
beelden: 
TIME-"09:30" of TIME-8T worden getruikt om het klokje op tijd te zetten, 
TIME $A of TIME $#8200 haalt de tijd uit BENNY en zet die in eer string, 
PIME of TIME! drukt de tijd af; na het woordje TIME wordt verder gegaar. 
alsof het een printstatement betrof (vandaar dat TIME' ook werkt). DATE er. 
DAY gaan net zo en voor de laatste spreken we af det DAY="0" overeenkomt 
met zondag. Regel 59 mag nu worden weggelaten. 

Kunt u uw computer nog geen statements leren, heb dan nog even geduld. 
Er ie nl. een EPROM in de maak, die op de plek komt van de joskox oid. en 
u in staat stelt om op zeer eenvoudige wijze, zonder omprogradbren extra 
statements te maken, zonder schakelkaart. 





10 REM BIC EENNY 220BCC P+63ADC @# 3F;LDKX @2DICPY 2 2 
20 DIM LL7;B-ttB400;S=#52 230BEQ P+6;CPY& 5;BNE LL3;STA #81 
30 FOR I= TO 7;LLI=999;N. 24OTXA;STA (S),Ys INT; 

40 P.821;F.1=1T02;P-# 2800 [ 250:L1 33 CPY@8;BNE LL2;LIA «+ FF 

50 STA #8OGSTK #â1 260STA B;PLAGORA ##803STA B+2;PLÀ 
6O:LLOzLDA @#403STA #523LDA 1 270ORA £433;STA E+3;PLA;STA P+1 
TESTA #53; 280LDA ú#D;STA (S),Y;RTS; 
BO:LLIJLDA B+1;PHA;LDA Be 33 PHA 290: LL43LDX w# 50; BIT # 8OA2 


GOLDY EOGSTY B+3;LDA Br2;ORAFHCO ZOOBIT P6OA2GSTK + 81; LDA C 180 

100STA B+2;LDX @4;STX B+3;LDA B+2 310STA #80;JSR +F291;CMP « “3D 
11OAND @43P;STA Br+2;PHA;LDA e#34 320BEQ LL7;CMP #24; BNE LL6 

1205TA Be33STY Be1;LDA @#FF;BIT #80 330JSR #CT8B;JSR 4 C3CB; 

130BPL P+4;LDA @#+FO;STA BjSTX B+14 3402LL5;JSR # C4E4;JSR LLIGJMP #C55 B; 
14O:LL23 LDA (S),YzAND@#OF;ORA #B1 35O:LI6;DEC #33JSR LLOGJMP #C39C3 
15OLDX #81;CPK @#50;BNE P+440RAF8 360:LL7;JSR HCEB1gLSR # 80; ENE LLS 
16OSTA B;PLA;PHAzORA #80;STA P+2 3705P.86;N. 3E. ee 
1TOLDA B3AND @#FzORA @#30GCPX @H8O Ruurd & Frans 
180BEG P+63CPX C#50;BNE P+4 

19OAND @4FP3;STA (S),YzPLA; PHA 
200STA B+2;5EC;TXA;SEC @#103STA #81 
21OINY3LDX &+#3A;CMP &# 50; BEQ LL3+4 









CHAKELKAART O verarrne 9 vara 


Inleiding. 


De Schakelkaart van onze club is op dit moment in grote aantallen 
aanwezig bij onze leden en ongetwijfeld zijn velen op dit moment aan 
het experimenteren met een besturingsprogramma dat hun toolboxen, 
packs en eigengemaakte soft precies zó hanteert als zij dat graag 
zouden willen, 

Het leuke van "onze" Schakelkaart is namelijk dac allerlei bestu= 
ringsprogrammatuur kan worden toegepast, van zeer eenvoudig tot 
uitermate geraffineerd, 

Zo kunnen alle in de handel ais IC24 verkrijgbare EPROMS in onge- 
wijzigde vorm worden toegepast. Je kunt ook eigenhandig ontwikkel 
de programma's in de Schakelkaart laden en met een zelfbedacht 
commando opstarten. Je kunt je schakelsoft zó maken dat alle 
statements van een nieuw ingeprikte EPROM onmiddellijk herkend 
worden; je kunt je schakelsoft oak zó maken dat bepaalde state 
ments met “voorrang” behandeld worden, dus sneller, Je kunt....., 
je kunt nog veel meer, de mogelijkheden zijn vrijwel onbeperkt en 
worden alleen begrensd door de eigen fantasie, 


Hiernaast is er nog de kwestie van het ondeshoud van de schakel- 
soft, Je kunt natuurlijk op papier listen bijhouden van alle gere 
aliseerde statements; je kunt dit ook niet doen en alles trach- 
ten te onthouden, Vroeg of laat komt er dan een moment dat je 
twee statements hebt, die exact hetzelfde doen maar waarvan je de 
naam van de eerstevergeten was...» 

De schakelsoft dient dus zèlf een lijst te kunnen produceren van 
alle actieve statements in de Schakelkaart, Bovendien zou het ook 
makkelijk zijn als de schakelsoft behulpzaam was bij het "aanleren" 
van nieuwe zelfgemaakte commando's, 

En zo kunnen we nog wel een tijdje doorgaan. 


In het hiernavolgende worden twee schakel-programma's beschreven 
door hun geesteliĳke vaders, nl, een 505 (=Schakelkaart eperating 
System) van Klaas de Raad en één van Bram Poot, Hopelijk vindt U 
hierbij iets van uw gading; wellicht vindt u Hier juist dié ziens- 
wijze of aanpak uitgewerkt die u zelf ook nog ‘ns wilde proberen, 


Principieel. 


Hiervóór werden reeds enkele mogelijkheden genoemd voor het hante- 
ren van commando's en statements in de EPROMS op de Schakelkaart, 
Voor de duidelijkheid wil ik proberen hieronder een opsomming te 
geven van de verschillende mogelijkheden voor het hanteren van 
nieuwe commando's, packs en boxen, aanwezig op de Schakelkaart, 


l. Successivelijk alle ROM-voeten aflopen, de één na de ander, 
totdat het gezochte commando is gevonden en kan worden uitge 
voerd. 

Alle "Command-String-Interpretors" worden als het ware in se-- 
rie geschakeld door het draai-schiĳf-programma (=de schakel- 
soft), Hierdoor wordt de computer traag, vooral als vaak ge 
bruik wordt gemaakt van statements achteraan in de rij. Boven 
dien, wanneer bepaalde statements méér dan één keer in de CSI 
voorkomen, wordt aïtijd de voorste in de rij gepakt. Bijvoorbeeld 
DATA, READ en HESTORE komen vrijwel in elke toolbox voor. 
(Frans van Hoesel is daarom begonnen met het verzamelen van 
zoveel mogelijk handige statements in één EPROM, zodat er geen 
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deuslures meer zijn. Hovendier Kikr dere Fi ook naar eventu 
ele statements in RAM; een mini-schakelkaartje dus, Zie "Anr 
wikkelingen" op pasina 


2, Maak je eigen Command-string-Interpreter waarin je alle ve ze 
bruiken statements opneemt en kies van de meermalen voorkomende 
statements de beste, Deze SSI vormt dus het hoofdbestanddeel 
van het draaischĳfprogramma en is aìs het ware een selectie van 
het beste uit de aanwezige EPROMS, 

De schakelsoft is dan snel (de CSI is zu kort mogelijk) maar 
omvangrijk en bovendien worden de aparte CSI's in de EPROMS5 nier 
gebruikt. Zonde dus van die verloren EPROt-ruimte, 

Bovendien, de EPROMS moeten nu op een vaste plaats staan, zo- 
dat de afhandeling van een gevonden commando vanuit de draai- 
schijf trefzeker kan worden ingeschakeld, 


3. Zoals gebruikelijk, ligt de beste aanpak ergens tussen de boven- 
omschreven twee uitersten in. 
Je kunt bijv., als een bepaald programma toch alleen maar state- 
ments uit één toolbox gebruikt, alléén deze coolbox inschakelen, 
waardoor de CSI natuurlijk veel korter wordt. 
Je kunt de box met de meestgebruikte statements vóóraan zetten 
in de rij, zodat die het eerst aan de beurt komt. Of, als deze 
keuze te moeilijk is, haal dan alleen de meestgebruikte state 
ments naar voren, door deze in een eigen ESI-tje op te nemen 
die je eerst doorloopt alvorens de toolboxen één voor één af te 
grazen. 


De eerste methode had als voordeel, dat EPROMS geen vaste plaats 
in de Schakelkaart hoefden te hebben, want ze kwamen toch allemaal 
aam de beurt, 


De tweede methode had dit voordeel niet: alle EPROMS moeten hier- 
bij een eigen, vaste plaats hebben. 


Bij de combinatiemethode 3 komen beide effecten voor: de EPROMS die 
vanuit het nieuwe CSI-tje worden aangesproken moeten een vaste 
plaats hebben, de andere niet, Een nieuw verworven EPROM kan dus 
zonder meer worden biĳgeprikt, wat natuurlijk heel belangrijk is, 


Opmerking, 

Voordat ik de beide auteurs over hun SOS aan het woord laat, nog 
één opmerking. 

Zoals u verderop zult zien gebruikt Klaas de Raad EPROMS die op 
enkele adressen zijn aangepast aan zijn schakelsoft, nl. op de eer 
ste twee adressen moet staan # hO en # E3 (isp.v. resp. # 4O en 

* BF voor een "gewone" toolbox) en het terugspringadres aan het 
einde van de CSI moet zijn # E835 (iapev. # C558). Dit noudt dus in 
dat een "gewone" tootbox hier Diet zomaar kan worden bijgeprikt en 
dat is erg jammer! 

Klaas heeft hiervoor de volgende reden: 


1, Dankzij de wijziging kan de schakelsoft nu onderscheiden welke 
box via de “eigen” CSI wordt ondersteund en welke boxen moeten 
"'afgegraasd", Dit "grazen" gaat dus efficiënter, omdat de boxen 
met # BF vóóraan senvoudig worden overgeslagen. 

Dit had natuurlijk ook gekund door de boxen, behorende bij de 
“eigen” CSI, in bepaalde voeten te zetten en het “grazen!” tot 
de overige voeten te beperken, maar nu gaat het automatisch, 
dus altijd goed, 


2, De in de club in zwang zijnde tootboxen worden reeds ondersteund 
uit de "eigen" CSI in het SOS. Toe te voeren EPROMS zijn dus waar- 
50 schijnlijk eigen software-ontwikkelingen, waarbij de bovenstaande 


aanpassingen eenvoudig worden "meegenomen" An het ontwerp. 
Bevendien, aldus Klaas, worden toolboxen meestal niet gekocht, 
maar binnen de club gecopiëerd. Ook dan is een kleine wijziging 
eenvoudig aangebracht. 


3. Vaak moet een box sowieso worden aangepast om in de schakel- 
kaart tekunnen werken, Meestal betreft het hier boxen die vec- 
toren naar het A-blok richten, Wordt een andere EPROM in het 
A-blok geplaatst, dan gaat het natuurlijk moot fout, 


Voor al deze problemen zijn ook andertoplossingen mogelijk, dat be- 
wijst Bram Poot's schakelsoft, 


Afgezien van dit m.i, wat vergaand perfectionisme, heeft Klaas een 
SOS gebouwd met opmerkelijke mogelijkheden. De combinatie met de 
BOOTSTRAP (zie A‚N. 1, '83)} opent een reeks van nieuwe mogel ĳkhe- 
den en de inbouw van CHARON (zie Hobbit 1983, nr.k) van Frans van 
Hoesel, waardoor tien funtietoetsen mogelijk worden, verhoogt de 
toegevoegde waarde aanzienlijk. 

Daarom wil ik u de SOS van Klaas niet onthouden. 


Schakelkaart Operating System Bram Poot 


CHAIRPROGRAM is een minimumprogramma dat aangemerkt kan worden als de 
systeemsoftware van de schakelkaart, vergelijkbaar met b.v. de routine 
#FEFB zonder welke uitvoer naar de printer weliswaar mogelijk is, maar 
uiterst onhandig. Het programma neemt dus het omslachtige schakelen met 
de hand (?#BFFF«...) over. 

Een beperkende voorwaarde die ik me bíj de ontwikkeling ervan heb opge- 
legd was het Atom-principe waarmee toolkíts worden opgenomen in het 
systeem. Ik vond dat hier niet aan geprutst mocht worden (niet iedereen 
kan dat namelijk). 

Eerste eis: toolkits niet wijzigen. 

Het ligt voor de hand om dan een hele grote tabel te maken met alle 
commando’s en statements die voorhanden zijn, samen met epromnummer en 
executieadres. De nadelen zijn echter duidelijk: dubbel geheugengebruik 
en aanpassing noodzakelijk bij elke wijziging van de schakelkaartbezet- 
ting. 

Tweede eis: geen tabel. 

De draaischijf mag natuurlijk niet in conflict komen met andere pro- 
grammatuur. Het verschijnsel dat de PPT uitgeschakeld moet worden als 
je de monitor wilt gebruiken is uit den boze. 

Derde eis: Atom compatible (inclusief DOS). 

Het aardige van een Atom is dat je op voorhand weet dat bedoelde sys- 
teemsoftware ook binnen deze eisen realiseerbaar moet zijn. 





De Atom initieert na elke “return” een breakvector om eventueel optre- 
dende fouten (van allerlei aard) op te vangen. Eén van die fouten 
treedt cp aan het eind van een toolkit als de interpreter niets meer 
heeft om het in behandeling zijnde statement mee te vergelljken. Wat 
de interpreter niet, maar wij vel weten is dat er naast die toolkit 
(dew.z. op hetzelfde geheugengebied) nog een toolkit zit. De break- 
handler moet dus in dat geval, en alleen in dat ene geval geen fout- 
melding ERROR 94 genereren, zoals gewoonlijk, maar de volgende toolkit 
inschakelen en de interpreter opnieuw een kans geven (JMP#AO02). 


Als alle toolkits behandeid zijn en het statement nog steeds onbekend 
is dan zetten we de breakhandler op origineel en koat alsnog de mel- 
ding: ERKOR 94, 

Er zitten dus twee aspecten aan deze zaak: 

1, het zetten van de breakvector 

2. het successievelijk inschakelen van de toolkits 

Punt 1, vindt zo snel mogelijk plaats na binnenkomst in de draaischijf 
(regel 160,170). T.b.v. punt 2. moet het byte #BFFF uitgelezen kunnen 
worden. Aangezien dit niet mogelijk is, wordt een kopie ervan gedefini- 
eerd. Aan jou de keus waar en welk. In het kader van mijn verhaal in 
een vorige AcornNieuws over zero page gebruik mag ik in regel 60 na- 
tuurlijk niet "s=fBL" opschrijven. Verander dat dus even in "S=fúl" of 
“sef5l" of zo. (Zie programma op volgende bladzijde) 

Op dit momeat is de pure schakelsoft een feit en kunnen we gaan denken 
aan inbouw in een groter systeem. Eén faciliteit is al ingebouwd: als 
bit6 in het schakelbyte hoog is, is de draaischijf inactief (regel 150) 
en wordt er meteen doorgestuurd naar de eprou die door dit schakelbyte 
wordt aangegeven. Dit is gewoonlijk uiet nodig, maar kan gewenst zijn 
waar snelheid belangrijk wordt. Het bitje wordt laag door shift return 
(regel 130), waarna de draaischijf weer driftig kan gaan schakelen. 

Op de plek waar de breakvector zijn originele waarde terug krijgt kun- 
nen nog tig andere dingen gebeuren. Bij wij gaat de interpreter hier 
via een achterdeurtje de PPT in. Vanwege de eerste en de tweede eis 
voldoet deze toolkit niet aan de derde. Daarom nam ik mijn toevlucht 
tot een lapmiddel, overigens tot volle tevredenheid zolang ik nog geen 
alternatief heb. Een andere mogelijkheid is: doorsturen naar de DOS , 
die de controle wel verder overneemt. 

Voordat de breakhandler zijn nieuwe waarde krijgt (regel 160,170) kan 
eveneens van alles gebeuren. Bij mij wordt eerst een klein toolkit je 
met schakelstatements doorlopen (die per definitie niet op AXXX kunnen 
staan), in direct mode wordt de errorvector veranderd (naar een error- 
handler met echte foutboodschappen), READ&WRITE CHAR-routines worden 
geïnitieerd met o.a. auto-repeat, keyclicks, verlengde inputbuffer, 
functietoetsen (anders dan CHARON; meer BBC-like d.w.z. wel of niet 
executeerbaar, ook midden in de regel te gebruiken), extra CIRL-karak- 
ters, vertraagd afdrukken, extra ster=commando’s en een SET-UP-mode 
(voor de kenners: VT1OO-achtig). Deze zaken vallen echter qua principe 
niet onder het onderwerp schakelsoft en blijven hier derhalve buiten 
beschouwing. 


Aangezien bij ieder goed verhaal een stroomschema behoort, heb ik er 
ook een gemaakt. Het bestaat grotendeels uit het bekende plaatje van de 
afhandeling van statements. Het gedoe met de breakvectoren is echter 
nieuw. Rechts boven zie je twee soortgelijke kolommen. De tinker wordt 
doorlopen als de draaischijf actief is en kan in de ruit ERROR94 af- 
gevangen worden. Als de draaischijf inactief is, wordt de rechter kolom 
doorlopen. (Stroomschema op pag.54 > 

Een opmerking: het getal I komt overeen met de inhoud van het schakel- 
byte S uit het programma. 

Voor de rest zou dit schema voor zichzelf moeten spreken. 


N.B. Bij de eerste opstart van de Atom moeten in het schakelbyte en 
in #BFFF een nul staan. Heb je een bootstrap dan kun je dat auto- 
matiseren, anders even met de hand doen. 

Na elke volgende break van welke aard ook is geen actie nodig. 
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TÔ REM CHAIKFROGA rm 
20 REM AUTEUR: KRAM FDOT 
ZO G=bEONO,REN BASISADRES 
30 !'Q=O;REN I.V.M. FOUTEN 
SO 92520; ?W24=4B2; REN DIM POINTER 
0 Sz#$Ki; REM SCHAKELBYTE 
70 E=#E4GO;REM UITBREIDINGEN NA AXXX 
30 DIM ER9;P.S21 
90 F.I=0 TO 9;BBI=GN. 1 
100 F.l=1 TO 2;P=Q+2 
1100 \DRAAISCHIJF 
120 KIT9ROO1; RMIRET NIRMAAL 
130 LDA9O;STA S SHIFT INGEDRUKT 
140: ERI LDA S 
150 HIT S;RVSEBB2 OP SLOT 
160 LDADEBOLAFF; STAN2O2 EREAF- 
170 LDADEHO/254; STANZO5 HANDLER 
18% LDAD#FF;STA S ”ROMP-1" 
19Q:BB1 LDXDKFF; TXS MAAK STACH SCHOON 
200 INC S;LDA 5 
210 CMP28;BCCEB2 VOLGENDE KEM 
220 LDAD#DH; STA#202 ORG. BREAK - 
230 LDAD#CY; STA#205 HANDLER 
240NLDA EN\CMPON4O\BNEENS 
250ON\LDA E+1NCMPOKEF\ENEBBG 
260 JMP E+2 EXTRA UITBREIDINGEN 
27C:B5O PLA; PLA; STA#O 
280 CMP9#SE;BEORBI ERROR 594 
290 JMP#CIDC NORMALE BREAKHANDLER 
300:BB2 STANBFFF 
SLONLDA8SOOO\CMFDR4O\ENE HBÓ 
327 LDANAQGO1 ; EMPORBF ; BNEERERZ 
350: BBB JMP#ACO2 PROBEER MAAR 
540: BB6 JMP#CSSS 7 
350; P.S6jN. I 
560 ?0=#40 
3570 END 











Toelichting: 


60: Het schakelbyte zou # BFFF moeten zijn,maar dat is WRITE-ONLY 
omdat de ontwerpers dit soort programmatuur niet hadden voor- 
zien en omdat de kaart anders nodeloos ingewikkeld zou worden, 
Je kunt nog IK stapelen (#BCOO-#BFFF) of een ander adres ne- 
men b.v, 

ÉFE als je geen printer hebt of 

BF als je geen DOS hebt of 

#3FD als je geen kleurenkaart hebt of 

É67FF op de geheugenkaart of 

#EOO1 op de schakelkaart 

(zonder write protect voor de laatste twee mogelijkheden) 

70: Kan ook #7000 gijn of #6800 of #EBOO (of #0080, waar dan een 
makkelijk te wijzigen JMP-instructie staat of een JMP(ándirect 
Kies maar uit, 

240: Deze regels zijn niet echt nodig. 

250: Ais je echter niet weet of er extra uitbreidingen zijn, kun je 
ze beter wel meenemen, 

310: De FP ROM test ook alleen maar op ?#AO0Ol=#BF 
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ExECuTell 


STATEMENT 

ED ani 

z80r 
JM 
$E002 

ZET 

BRKVEC 
Teelt 
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zer 
BRUVEC 


IMP 
VERDERE 
ATAREI - 

Draf 





EA 
m 








Het schakel orerating system 505, is een systeem, dat er voor zorgt, dat de 
verschillende handelsboxen * geplaatst op de schakelìkaart, zonder problemen 
en zonder om te programmeren! met elkaar samenwerken. 

Statements uit de verschillende boxen kunnen door elkaar gebruikt worden in één 
programma. Het SOS zorgt ervoor, dat automatisch de juiste BOX ingeschakeld 
wordt. Bie stroomdiagram op pag. 57 … 

Het SOS bevat bovendien nog een aantal bijzonder gebruiksvriendelijke facili- 
teiten: 


=Wanneer m.b.v. FCOS 1200 Baud wordt ingeschakeld, dan worden files vanuit b.v. 
ATOMCALC en WORDPACK ook netjes op 1200 BUD naar cassette geschreven. 


=Ook na het commando GRMOD, kunnen rustig statements uit andere boxen gebruikt 
worden. 


-Unnamed files worden voorzien van een Check-sum byte, 


=Functietoetsen zijn meteen beschikbaar, want het programma CHARON van F‚ van 
Hoesel is ingebouwd. Zie het meinummer van Hobbit. 


—Ook het statement AUTO is ingebouwd en het piept netjes, wänneer een regelnum- 
mer al aanwezig is. 


=il je een listing stoppen? Dat kan, met CTRL-S. Door CIRL-Q is de uitlezing 
weer te hervatten. (veel handiger dan de pagemode) 


=Wil je zelf statements erbij maken: daar is in voorzien. Het is zelfs mogelijk 
om statements op de 16K kaart te plaatsen. 


Het geheel neemt slechts 2K geheugen in beslag en wordt geplaatst in het gebied 
E800-EFFF. De ervaring leert, dat plaatsing in EPROM (2716) aan te bevelen is. 
Wanneer het in RAú geplaatst wordt, moet dit gebied zeer zorgvuldig beveiligd 
worden m.b.v. wright protect! 1! 


Het systeen is te 'linken' met LINK#E805., 1200Baud, Charon en (indien aanwezig) 
de softtool worden nu ingeschakeld. 


Automatisch inschakelen wordt mogelijk, wanneer de Bootstrapschakeling is inge- 
bouwd, Dit geeft bovendien de volgende extra faciliteiten: 


-BREAK samen met REPT 'linked’ automatisch het systeem. De mogelijkheid is 
hierbij aanwezig om een gebruikersroutine aan te brengen, om b.v. automatisch 
een programa te runnen of in te laden etc. etc. 


=BREAK samen met SHIFT veroorzaakt de normale ‘Atom' BREAK. 


—hlleen BREAK geeft slechts de mededeling BREAK, of tijdens een BASIC-programma 
BREAK AT LINE x, waarbij x het lijnnummer aangeeft, waar het BASIC-programma 
werd onderbroken. Belangrijk hierbij is, dat alle systeemvectoren en de page- 
pointer etc. blijven zoals ze waren, Ook een eventuele GRMOD blijft. Dus 
blijft het systeem ‘vastzitten’, b.v. in een cassetteroutine of in een 
rmachinetaalroutine, druk dan eenvoudig op BREAK! 


In het hieraa volgende gedeelte zullen we achtereenvolgens beschrijven: 
—aanpassen F‚P. ROM =zelf boxen maken =beschrijving RCK-BOx 
=beschrijving van de statements, die opgenomen zijn in de SOS 

=inbouw van de bootstrap =overzicht van gebruikte adressen c.q. geheugens. 


De Floating Point ROM: Om de statements te herkennen moet uiteraard de z.g. 
3-weg wissel worden aangebracht in de F.P. ROM. Gekozen is voor de volgende 
routine: adres in F.P. D4AF: LDA #E7FD 

CMPS #E3 testbyte voor SOS 

BEQ #D4CO op D4CO staat JMP(#EJFE) E7FE: +E800 
LDA #A001 etc. 


De bedoelde handelsboxen zijn: Jordpack,Atomcalc,Tcolbug,Softtool en Josbox. 
voor andere boven is een aanpa.. ing noodzakelijk. 





* 
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aänpassi j van de £.r. BOM: 


3BC was 00 wordt FO D4BC was 03 wordt 
EER AD E? D4CO Bied 
„33 40 E3 D4C + 02 

hd oô Fo D4C2 Aù 





Vor de handelsboxen en cok de zelfgemaakte boxen gelden geen vaste plaatsen, 
uisgezonderd de JOSBOX, dit vanwege de snelheid. Cok een eventuele Softtool 
heef. een vaste plaats, om de *commando's niet te vertragen. Op deze plaats Kan 
uiteraard rust’. een andere box geplaatst worden. 

-JOSYOX rlaatsen op A-blok No.4 

=Eventue.: SOFTTOOL plaatsen op A-biok NO,3 





Zelf te cvan boxen voeten starten met 40 en E3 (testbytes) op repectievelijk 
A000 en Alt! “r word automatisch gesprongen naär A0Q2. Wordt een statement 
in deze bos ‘ t gevonden (einde tabel) dan niet naar C558 springen maar terug 
in het SOS :.r B835, zodat het systeem in andere boxen verder kan gaan zoeken. 
Een box va it type is door mij gemaakt en bevat de volgende statements: 


=CURSOR, HI, ZERO, POP, BEEP, STOP, VAR en DELETE, Deze statements zijn bekend 
van de TX „BOX van P.P. en zijn herschreven. De statements gebruiken geen 
‘vrije zero, 1ge' en testen netjes op einde statement{C55B). BEK is ingekort en 
is nu ook t: gebruiken in combinatie met een prinrer of in GRMOD. VAR is sterk 
ingekort n VAR# werkt nu wel correct, 


=ook opgenomen zijn de z.g. monttorcommando's (zie A.N. 7 1982 blz. 38} 
HOME, HIGH en «HIGH stellen de tekstspacdointer in op resp. #29, #82 en #98. 
TP laat TOP zien en TS laat de tekstspacepointer zien, 


=nieuw zijn de volgende sterements BELL, INKTY “acht op toeus , PAU F EN 
PAUSE 255 wacht 255/60 secunde mu”). HTAB ‚v. 45 geeft 45 aties u 
op de printer), VTAE b.v, VTAB3 geeft … „euwe regel: (CR+LF). DPO en FPOP, 
voortijdig springen uit resp. DO..UNTIL en FOR. „NEXT „us 

Vou-B, bekend als Softvdu: grote letters en kleine letzers iu MODE 4. Gebruikt 
DATA uit de WORDPACK ROM, die verhuist wordt naar gestapeld geheugen 9C00- 
9FFF | De routine zelf wordt verhuist naar E300-E4FF (z.g. kladblok) 

VDU-W idem maar nu zwarte letters op een witte achtergrond. 





=tenslotte MONITOR. Het betreft hier de bekende monitor van R.Heuvel. Verhuist 
zichzelf naar E100-E4FF. (kladblok) Deze lokatie is gekozen, zodat in alle 
boxen ‘gekeken kan worden. 


Beschrijving van statements, die in het SOS zijn opgenomen. De tabel omvat: 

FCOS, SCOS, CODE, AUTO, CALC, CALCR, EDIT, TEXT, EDT, DEBUG, CHARON, CHOFF, 

GRMODE, TXMOD en BOX. 

=CALC en CALCR voor de CALC ROM 

„EDIT en TEXT voor de WORDPACK ROM 

=DEBUG en EDT voor de TOOLBUG ROM (gekozen is voor EDT ter onderscheiding van 
EDIT uit WORDPACK! } 

De genoemde statements zoeken eerst of de betreffende box aanwezig is en 

springen daar dan in, anders volgt ERROR 94. 

De statements FCOS, SCOS, GRMOD en TXMOD zijn opgenomen om de juiste vectoren 

aan te passen maar let op, ze werken alleen samen met de JOSBOX! 


Verder: 
“CHARON schakeld Charon in met standaard functieset op #E500. En b.v, CHARON#87 
geeft functieset op #8700. 
=CHOFF zet Charon uit. 
“AUTO werkt ongeveer als AUTO uit TOOLBOX P.P. echter met enkele verbeteringe 
b.v. AUTO 50 nummert 50,60,70, .., AUTO „50: 40,60,110, …… 
I.p.v. 1 testbyte worden nu 2 testbytes gebruikt, zodat spontane regeinum- 
mering nu niet meer voorkomt. Escape schakelt nummering nu wel uit. 
Let op, omdat AUTO geïntegreerd is in CHARON, wordt CRARON automatisch inge- 
schakel:& door AUTO indien CHARON uit was. 


=BOX b.v. BOK 4 schakelt box 4 (JOSBOX) in. Bij een getal groter dan 127 volgt 
ERROR 227, 
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zLOATING 
POINT ROM 


indirecte 
Jume 


eigen 
tabel? 


C55B 
volgende 
statement 


volgende 
BOX 


laatste 
BOX gehad? 






HALLO 1 = 
2 fAOOO=#4O en 
TÉAOO1=fE3 





statements 
op 16K kaart? 


HALLO 2 = 
IÁTFFCz#E3 en 
2ÁTFFDeÁBF 
in 
tabel 
Josbox 
? 
SETFD,/EÏFE en fE7FF worden bij / Cs 
REPT BREAK AUTOMATISCH INGESTELD err on 
OP resp. ÉE3,#00,#E8 NE 
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-CODE dit is een “FIND'-instructie voor machinecode, 

Aan de hand van een voorbeeld zal ik de werking van dit stacerent verklaren. 
BOX 6: CODE #A000,#8000 

We hebben hiermee BOX 6 ingeschakeld en gaan zoeken tussen het opgegeven 
start en eindadres. De computer zal antwoorden met: "INSTRUCTION?" 

We kunnen nu 1 of 2 losse bytesopgeven b.v. #FFE3 of 1 of meerdere assembler 
instructie's, die vertaald worden. b.v. LDA &6: JSR #FFE3. In beide gevallen 
zoekt de comuter of deze combinatie ook voor kont in het opgegeven gebied, 
en geeft het adres of de adressen, daarna volgt weer "INSTRUCTION?" 

Worden er teveel assemblerinstructìes opgegeven (te lange regel) dan volgt 
ERROR 3. (bij zoeken naar 2 losse byte's wordt gezocht naar lowbyte resp. 
highbyte dus in bovenstaand voorbeeld E3FF) 





Het inbouwen van de 'Bootstrap'. 


Alereerst voor de duidelijkheid een uitleg, wat de functie is van de bootstrap 
beschreven in A.N. febr. "83. 

De 6502 processor kijkt, nadat hij gereset wordt (BREAK) naar FFFC(lowbyte) en 
FFFD(highbyte) „ springt naar dit adres en gaat met uitvoering beginnen. 

We willen graag dit adres veranderen, maar helaas staan deze bytes in ROM. 

Met de bootstrapschakeling houden we de processor voor de gek, door wanneer de 
processor wil lezen of schrijven naar de 8 hoogste bytes (FFFS8 t/m FEFF) één 
adreslijn laag te trekken, in het oorspronkelijke ontwerp Al5. Deze 8 bytes 
komen nu overeen met 7FF8 t/m JFPF. Deze adressen staan in RAM en kunnen dus 
wel veranderd worden. Opgelet: onze Acorn atom heeft helaas de neiging (waar- 
schijnlijk door looptijdvertragingen } bij het lezen van deze hoge adressen cok 
te schrijven, waardoor de inhoud verandert. Dus altijd Wright Protecti! 
Volgens mijn filosofie is het echter niet zo netjes, om de 16k-kaart te mis- 
bruiken voor dergelijke doeleinden, wanneer we een schakelkaart aan boord 
hebben, met ruimte op het E-blok. 

We kunnen i.p.v. A15 ook A12 laagtrekken. FFFS t/m FFFF komen nu overeen met 
EFF8 t/m EFFE, 

Het schema van de Bootstrap is getekend in fig.3. We zien een 13input NAND. 
Hierop zijn 12 adreslijnen om te testen, of er inderdaad naar de hoogste 8 
bytes wordt gekeken. Adreslijn 12 hebhen we onderbroken mot een AND, waarmee 
we onder bovenstaande voorwaarde A12 laag kunnen trekken (A12') 


Om de adressen uit het E-blok te krijgen, moeten we het bootstrapprintje iets 
veranderen. 






A12* 


opder- BeRtePEÂnE van 
breken 


6502 AI TTT TT 


Al2 — A2! 





s 6 T 


+ 


+ 
shift (€ pull up 
Topsv. 
“=d shift beter 


schakelaar! 





5502 voetje 
(bovenkant } 


fig. 1 EH ig.2 fig.3 


6 12: 


VEWiSse: ze 
erbinden. 
géén 










Laak 





non adresiarn A15! , aaar nu 








se kun-ea na m voning vol a. Ke nutun de 
vuerje en zoe a (re 1 ve onderbreken heteprintspcor bay 
zet aangegeven lere. (doorsr=s en: de noemen het losgezoppelde 





Ald! De uitz 
zie Fig. 2). 


van hei nrintne verpinden we hiermee, ‘was Al5 op printze’ 
n se nataur ask aan de achter 


‘ne f13.3): 








„se. 





=upmerking over het punt sh 

Het punt shift is er ar Fedoeld, ©: de bootstrap buiten werking te zetten, 
waardoor bij indrukken shift de acern zich weer norwaás gedraagt. Handiger is 
:n dit geval, om een aparte schakelaar te pia:tsen iz fig.3. 











sebruikte adres-en c.q. geheugenplaarsen: (a:le adressen hexadecinaal) 


n zeneugenplaatsen zijn met zorg gekozen, om conflicten tussen de verschillen- 
boxen te voorkomen en om zo zuinig mogelijk vrite geheugenplvatsen in beslag 
te neen. 








23D,23E en 23F zijn gereserveerd voor gebruik in de Softtooà. 

C53, cda, 238 en 23C worden gebruikt in SHARON als geheugenplaatsen voor OSWRCH 
en OSRCH. {In de originele versie van CHARON zijn dit andere 
adressen} 
is highbyte fFunctieset. Normaal ES 

jag BFFF (om te kunnen lezen) 

jeeli'ke opslag 237 i.v.m. Fcommando's softtool. 

tijdelijke opslag 237 i.v.m. GRHOD. 











en 234 zestbyte's t‚b.v. AUTO. 
AA t/m AF worden door de softtool gebruikt. 
AA t/m AD worden ook gebruikt in het statement AUTO. 





REK-bux: Alleen Ze statements 7u 
on z/m SPL 
De monitor (K.it,) gebruikt uiteraard ook zerorage n.l. #0 


en VDG 





bruiken vrije 














ZFFD testbytes voor evenvuele statements 16k-kaart. (ES en BF“ 
ZEEF het adres van de l6k-kaart statement interpretor. 
E7FA zestbytes vocr een eventuele boots-gebruikersroutins. (E3 en 
BE } 
EFS en ETFS het adres van de bcotsgebruikersroutine. 
ETE: testbyte voor de F. T RUM. Wordt bij opstarten SCS auto- 
matisch E3 gemaakt. 
EPE en EIFF agres voor de ‘ndirecte SMP van de Fr. wordt j orstarter. 





505 automatisch E8UO gemaakt. 











Eort kot EUEF vris voor een eventuele DOS routine (doerschakeien 2° Ebìok) 
ElUC rot ZAFF *kladbiok vour MONITCR, YDU-B en VDU=W, {RCK-BOX), Deze 
ruimte kan dus ook tijdelijk voor andere dneieinden gebruikt 
worden! 
tot ETF hier bevindt zich de standaard functie-ser voor CHARON. 
2730 tot ETFS niet in gebruik. 





Yenslotte: De -BOX heeft nog aardig wat ruimte over. Ter nerkenning zijn 
ge plaatsen opgevuld met #77. neze ruimte kan nog tar 
worden opgevuld, zoals een TRACE Line voor BASIC of WH IK 
heïpt er mee ontwikvel 





ze neatenent: 
WIEL 








INN ete. 








as de Paad 





Momenteel zijn in ontwikkeling twee nieuwe he 
die in principe bedoeld zijn voor die mensen die 
kelkaart b eri, Ze zijn geheel onafbar 
en samen maken ze een dure schakelkaart vri 
wordt u verondersteld over een î6k-kaart te teschixser. 
de volgende twee vindingen: 











1) Eer nieuwe EPROM op Axxx. Nu zult u zeggen slmeer eer 
deze beschikt over een aantal bijzondere eigenschepren 
maken. Uiteraard zitten er de meest gebruikte sta 
REAT, DATA, RESTORE, KEY etc. maar ook enkele nieuwe. Zo 
zeer krachtige editor in, die het verbeteren van progra: 
gemakkelijker maakt (ook handig voor het ‘aanpassen! va 
‘programme's) en zit er ook een heus procedure statement in, Wat er 
niet in zit zijn de meer gespecialiseerde statements zoals SHAPE, 
BLOCK, PLAY (wel BEEP) ed. Dit is echter niet een gemis want tet op: 
deze EPROM is zodanig georganiseerd dat nieuwe statements zeer gezak- 
kelijk in RAM kunnen worden geladen. Heeft u dus op een gegeven ogen- 
blik een stel grafische statements nodig, dan pakt u het kandie met 
grafische statements en laadt dat grapkios-rack gewoon ever. in RAM 
en klaar is kees. Ook het zelf schrijven var statements is nu een- 
vcudiser geworden, omdat u niet eer rieuwe interpretator heeft te 
schrijven. Slechts een lijst met statements en hun adressen is voldoen- 
de om de ATOM die statements te ‘leren! (meerdere lijsten kunnen ook 
worden gekruikt). Als toetje: voor al die extra statemnts hoeft u niet 
eens de FP-RCM te wijzigen. 












2) Een miniatuur schakelkaartje dat in ieder geval schakelen tussen 
één EPROM en 4k CMOS op Axxx. De gedzchte hierachter is dat het voor 
de meesten onder u voldoende is dat indien nodig ATCM CALC of WORD- 
PACK ed. in RAM kan worden geladen. Deze RAM is uiteraard voorrien van 
battery-backup. Bovendien zullen vele onder u aan één EPROM wet extra 
statements ruim voldoende hekken, Kaartje past uiteraard in de kast. 


Samen zijn ze nog krachtiger dcordeat nu vrijwel alles dat u met de scha- 
kelkaert had willen doen mogelijk is geworden (en det voor veel minder 
geld). Wilt u ATOM CALC gebruiken, den ken dat; extra statements, nou 
ook dat is mogelijk. Heeft u echter haast omdat u direct wilt kunnen 
switchen tussen bv. CALC en WORL-PACK of omdat u geer tijd heeft om deze 
ontwikkeling af te wachten, dan moet ik u toch aanraden om de schakel 
kaart te kopen. 

De ontwikkeltijd is tamelijk lang, doordat alle stements voor de 
nieuwe EPROM opnieuw gescrever moeten worden, opdat ze zeer kort worden 
(aan passen er veel meer in één EPROM). Het miniatuur schakelkaartje 
wordt in samenwerking met Ruurd van der Zee ontworpen. 


Groetjes, Frans. 
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Os meled® Pe 


Q REM 3D TEKENEN 

19 P,$12" mn Threedee zr" 
20 FDIM %XX2,BIY2, 

38 FIN,"Asismth " 

48 FIN, "Elevatie"; AP 

SN FIN,"Afstand "AD 

6Q FIN, "Aniuuth-verandering ‘%G 
70 FIN, “Klevatie-verandering"%I 
88 IN, "Vergrotingsfactor"Fr 
159b CLEAR4$T=N 
129 aaa 2ePI/368 


200d BEADX,READT,HEADZ 

219 BAD HD-A 20X-ATT2ET-A2L202) 

220 Rtl KIXDEKVEL OY) 

238 GOS. a; Enk 

240 AV-in (KAKLEKVAIT LIZZ) 

259 GOS.a 

269 IP 19 Gee 

218 PLOTI3, (Pa )+120) , (6 Party )496) 
30Da IF TR DRAW(A( Pati )+126) , (Xl FeAV)+96) 
3IOT=Tals IF TAD GA 

BIG KBD 1 KARNAK 1 MADIA 

330 LI, eFFRSIGeb 

19908 #V-A( 7219048. 5)/190; B, 

MELLE COOEDINATE DATA XY Z 

2010 DATA 1,5,l,ledeke3rlelede-l,leleelslel,=-3,l 
29 DAA elsBeleel, A slan3eeleledeleleelelele=le3e1 
2030 Data 1,3,1ele3e=lelel,-1e3el,=le5elele3,le=l 
2048 DATA 3,-l oSptghodeenkelejene 14-5021, 1 de 
2058 DATA 1,-5 1,=3rel,=l,=3e leek, Beele el,= 








2868 DATA -Br-le,-le-3r-lele-Feele=le=De le =l0-5, 1d 
2ETO DATA -Sele-lerlel,=lpekeleleelele=le=1, 3-1 
2080 DATA -1,5,1,-1,3,-1,1,5,-1 





Bevenstaand programma geeft de megelijkhaid om voorwerpen 
ia 3D te tekenen vanuit elke gewenste kijkpesitie, 

In dit geval tekent het preogramma een figuur ala 
hieronder: 


Eet preogramma berekent de x,y en s-ooordinaten t‚e.v, 
de kijkpesitie («.d‚h.v. de relatieve ceordinaten ten 
epsichte van het aulpunt, welke ín de DATA list zijn 
epgegeven. ). 

san het begin van het programma meet u de volgende 
getallen ingeven: 


= Asimeth (tussen B en 369 graden),d.1, de draaiing 
van het voorwerp 

u Elevatie (tussen © en 368 graden),d.l, de helling 
van het voorwerp 

z afstand (kies hiervoer vaarden greter daa 5) 

= Aciuth-verandering: nadat oen figuur in getekend 
kan dese deor het aanslaan van een toets in coen 
nieuwe positie getekend werden, het programms 
berekend de mieuwe azinuth en elevatie indien 
als Asimuth-verandering en Klevatie-veraadering 
getallen groter dan Ù zijn ingegeven. 

m Elevatie-verandering, Lden 

z Vargretingsfactor, geef in le instantie 18 in, 
experimenteer met andere waarden 


Silndien u dit pregramma andere voorwerpen/figuren wilt 
Outen tekenen dient u slechts de data-list te wijsigen, 
de list is opgebeuwd uit groepjes van 3 data (nl, de 
x,y en z=coordinaten), de coordinaten geeft u op t.o.v. 

het nulpant ín het assenstelsel: 


(ent) 


G-ve) 





Elke nieuwe lijm die getekend moet worden, komt vanuit 
de laatste coordinaten, Het kan dus voorkomen dat voor 
verschillende lijmen, een aantal oude lijmen overgetekend 
moeten vorden, Dát gebeurt ook in dit voorbeeld, 
Het aantal ooordinaten-groepen meet im regel 318 
aangepast worden aan de nieuwe data-list, 
Hieronder neg een voorbeelä hoe men een kubus zou kunnen 
laten tekenen: 

(un) 


CI) KT 7 


dell 


m4 TT (e-u1) 









ordi of Need 


De data-liat voor een kubua zou er dus alm volgt uitzien: 


Ledel, lp=lel,le=le=1ed,1,=l,1,1,1 
=l,lslyelselele leek, leleel,=lgel,l gel 
als -ldeelselgels ele leels =de lele ie=l 
Lels-l 


Het aantal coordineten-groepen is nu 16, dus regel 310 
verandert in: 


318 TaT4l; IF T <16 Ged 


Zo zow Je ook bijvoorbeeld de kubua van rubik kunnen 
vastleggen, en hem vanuit slke gewenste ponitie bekijken, 
(Natuurlijk worden dat weì flinke data-listse), 


TPensiotte: u kunt dit ook in lagere grafische modem doen, 
hiervoor moeten regel 278 en 308 aangepast worden, 

De coordinaten hoeven niet groter opgegeven te worden, 
omdat u met de vergrotingsfactor s‚e‚a, kunt regelen, 
Dit programua maakt gebruik van de toolkit en de 

FP-ROM, Missohien dat ook Semand dit programma op 
snelheid kan meken (machinetaal?) zodat Je de positie 
verandering kunt versnellen en dus “animsted graphiaa” 
kan verkrijgen. 


Erie Snelders, Delfrijl, 





Zéér formaatbewust, Erik: 
Volgende keer 170256 mm° 





s000 BAUD!I! 


Jeze routine is op een gewone recorder betrouubaar en veel sneller 
dan de Atom routine, cok in het opzoeken van een programa. 
Ik heb gekozen voar 3000 Baud en de volgende codering: 


Lef feel Lef 


Een dergelijk simaal blijkt zelfs voor de zeer slechte recorders 
die ik heb nag feilloos te verwerken. Omdat de aanloopprocedure 


voor ieder blok ook compact is, is de routine léx zo snel als de 
originele van de Atom. 





TOEPASSING 


De routine leest of schrijft genummerde blokken van 1/4-K. 
Tijdens schrijven en lezen worden de bleknummers geprint; ook 
die niet tot het gezochte programma behoren. Als men de blokken 
op een bandje doorlopend nummert is een programma (af data) zeer 
snel op te zoeken. De routine wordt gewoon met Basic gestart door 


de vectors te wijzigen (zie programma), Via een eigen interpreter 
kan natuurlijk ook. 


SCHRIJVEN (na wijziging van de vector) 


SAVE“AAAA BBB8 CCCC* 
AAAA = beginadres van de te schrijven gegevens 
B8BB = nummer eerste blok; dit is vrij te kiezen 
ECCE = nummer laatste blok+l 

Alle nummers en adressen în hexadecimaal, 

De spaties mogen ook een ander teken zijn, 






VOORBEELD 


Een Basic programma begint op ##2900; P.&TOP geeft 354C; het 
aantal hele blokken is dus (hex) 36-29=0, Het laatste programma 
op de band gaat tot OOSF (blokars., niet bytes). Wil men door- 
lapende nummering dan gaat het nieuwe programma tot DOSF+D=006C 
de statement wordt dus SAVE“2900 OQ5F 006C". Eerst de recorder 
starten en daarna de RETURN toets. 


LEZEN (na wijziging van’ vector) 
LOAD"AAAA BBBB CCCC" 


De getallen als bij SCHRIJVEN, De routine begint te lezen zodra 
een blok met nr. B88B gelezen wordt; nadat bloknummer CCCC gelezen 
is keert de routine terug naar het aanraepende programma of de 
monitor. Het lezen kan onderbroken worden met de ESC-toets. 
Gebruikt men bloknummer CCOO niet dan kan met LOAD"DO0GGOOOG" snel 
gecontroleerd worden welke nummers op de band staan (gebruik de 
REPT-toets; een paar nullen teveel maakt niets uit}. 

Is op bitniveau iets mis dan geeft de routine de melding drop-out; 
is de checksum niet in orde komt de melding checksum fout; in 
beide gevallen stopt het programma, 

N.B.: tijdens het lezen met de VOU niet gaan doorschuiven 
(*scrollang”) omdat dit teveel tijd kost, dus bij voorkeur beven- 
in het beeld verken. 

De routine gebruikt de RAM-adressen 165-175 (decimaal). 


IP‚Sl2"iees/schr; out ine’? 
2 P,”NAAR WELK BORES MOET" 





3 IN. “GEASSENBLEERU WORDEN "P 
S @=4;P, “EINDADRES ROUTINE=8"&(P+634 
)';9=8 
18 DIMLLC46) 
11 FORK=BTO4B SLICK JEP iN. 
28 A=PiP, "even geduld,aub"”$21 
33 FOR Kel TO 2;P=A 
35L 


46 JSR LLIB converteer 
SQ:LLG LOX@L 27 ;LDAE4;STA#BAAZ 
6A:LL1 LOAAI GEOR#BGI2 

73 STASBGE2;LDYE63 

8@:LL2 DEY;BNE iL2;NOP;DEX 
28 BNE LLI;tLDA@l ;EOR#BOO2 
190 STA#BB02;L0Y831 

11:13 DEY;BNE LL3;LDA8i 
122 EOR#5002;STA#BeEz ;LDYe28 
13B:LL4 DEY;BNE LL4;LDA120 
142 STA 186;JSR LLS schrijfr,. 
158 LOA 1215STA 166;JSR LLS 
155 LDA@! ;EOR#BA02 ; STAHBZ02 
16@ LDA 121;1SRHF82 print 
198 LOA 176; JSREFSIZ ;LOTEG 
188 STY 124;STY 125 checksum 
198 LODX@7A;STX 167 

299:LL11 LOAGI GEORKBOG2 

218 STA#B482;LDXE63 

228: LIZ DEXGBNE Lii2 

238 DEC 167;BNE Lili 
248:LL13 LDA@I ;GEORKBOA2 

250 STA#B24Z ;LDXE32 

260:LL14 DEX;GBNE LLI4GEOR@I 
273 STA#BAY2;LDACI68I, 7 

282 STA 166;CLCGADC 174 

238 STA 174;LDARB;GADC 175 
309 STA 175; LDXe24 

318:LLIS OEX;GBNE LLIS 

329 JSR LLS sechrijir. 

339 INY;BNE LL13;LDAe! 

349 EOR#B902;STARBABZ ;LOXEFZ 
3SO:LLIE DEXIBNE LLIGGEOREN 
369 STA#BB92; LDxXE2S 

385:Lt44 DEX;BNE LL44;CLC;LDA 169 
328 ADCEI;STA 1539;LDA 124 
388 STA 188; 10Y 175;JSR LLS 
388 SIY 166;JSR LLS 

395 LOAG! GEORHBAR2 ;STAHBO22 
3397 LOXBZ5 
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338 
428 
418 
428 
a33 
440 


458 : 
SQONconverteer 


518 
520 
530 
540 
ssa 
564 
528 
588 
599 
644 
814 
528 


:LL45 OEXIBNE LLes 

CC; Da 178;Accal 

STA 17@;_CA 171 ;acc3a 
STA 17I;GEMP IP3GBNE LUIZ 
LOA 120;CHP 17Z;3NE LLL? 
RTS eince 

CLIP JMP LLG naar Begin 
routing 

:LLi8 LOX@9;LDYeg 


LIS LDAs148, YiJSRAFBZE 


ASLA;ASLAGASLA;ASLA 

STA 169,X;LDAstar,Y 
JSRHFBJEGORA 159,X 

STA 163,K;LOA#142, Y 
JSRAFB7E ;ASLA;GASLA 
ASLAGASLA;STA 168,X 
LDAR143, YiJSRHFEZE 

ORA 168,X;STA 168. X 

TYA; CLE GADCRS ; TAY ; INX; INX 
CPX@GGBNE LUISGRTS einde 


7û@rschrijfr.Bbits 
Z18:LLS LDXES;STX 167 


720: 


738 


aa: 


758 
26e 


2278: 
284: 
730: 


Bô8 


LL19 LOA@I ;EOR#BGG2 
STA#8002 ;LOXe29 

LLB DEX;BNE LLG;NOP 

LSR 166;BCS £L7;NOP 

NOP ;NOP ;NOP ;BCC LLS 

LL? LDAGI GEOR#8002 ; STAHBA02 
LL8 LOXE2S ; 

LLS DEX;BNE LL9;N0P 

DEC 162;BNE LLI@G;RTS eina 


8lONleesprogr. 


820 


838: 


848 
860 
874 
880 
890 
580 
918 
323 
338 
g4d 
S5a 
S55 
260 
980 


394 
1290 


JSR LUIS 
LL3S LOX@88;STX 166 
iSR UL28;LOXES 


:LU35 LEXGBNE LL365;NOP 


JSR Li27:LDY 156;NOP 
NOPSJSR LL22; LDA 166 
JSRHFBO2; FYAGJSRHFSI2 
LDA 166;CHP 171;BNE LL35 
CPY 178;BNE LL3S5;LDA 173 
ELESADCRI;STA 170;L0A 17: 
ADC@B;STA 121 startartt 
LDX@8;STX 186;JSR _L23 
LOY&B;STYIJ4GSTYI2S 
STYeDCs;L De 


‘1132 DEXGBNE LU32 esal. 
370: 


„L38 ISR LL2P;L0A 166 
STACI68),Y;CLC;ADC [Pa 
STA 174;L0DA 175;A0Ce2 
STA 175;LDX4#B002;STX 165 


LZBEDCIEEI LLSESRTS 1252 


ECRS3202 ; ANDB220 
LL35 L2<at2 1282 & 


R 
2 L23;CPXEI2;3PL LL 22 

















1422 LS CEX:SEG LL32;LDA 165 1298 157;BNE LL22 

ted EOKSZER2GANDGez2 1320:LL24 _CARB2G2;TAT;LOX228 
1842 LL39;1.DX926 1318:LL2S CEXGBEQ LL24; TTA 
125C:Lt42 CEXGBES LL32 1320 ECR#5202 ;AND@#29 3 LL22 
"252 LDA 155;EOR222B2GANDIE22 1332 NOP NOF INOPGICPX@14; BSI LLZ: 
1878 BNE LLS2ILOxES 1342:LL26 TYAGEOR2BBB2ANCAR2S 
“OBO:LLAI DEXGBNE LLal:INY 1358 BNE LL26;RTS 

1839 SNE LL3B;NOP; ISR LL27 148ONteesr.Svits 


“i0@ (DA 166;CHP 124;BNE LL43 141@:LL2? LOX@BISTX 167 

ii12 JSR LL27;LDA 166;CHP 125 1420:LL28 LDA#BAB2ISTA 155 ;LDXe23 
1120 BNE LL43;LDA 129;ChP 122 143@:LL29 DEX;BEQ LLI2;LDA 185 
+136 BNE LL42;LDA 121;chP 173 1448 ECR#BA02;ANDERZB;SEG LL23 


1149 BNE LL42;RTS 1458 CPX@18;CLC;BMI LL3i :LDXQ26 
11S@:L&42 [NC 169;JmP LL3S | 146@:LL33 DEX;BEG LL32;LDA 155 
1178:LL 43 LOY@I;STYaDC;JSRaF ID 1428 EORHBOOZ;ANDER2EGENE LI 

1180) ;sPe"checksumfout* 1488 SEC ;NOP ;NOP 

1198 P(Pr12)=HEAGP(P+13)=460 1438:LL31 ROR 166;DEC 167 

1133 F=2414 1582 BNE LL33;RTS 

1135 151@:LL33 LOX@4 

1196:LL32 STY 164;LOver 1529:LL34 DEXGBNE LU34;5E3 LL28 
iSTYADC; JSREFZO1 15301iNEXT K;P.S& 

:} 1680 P.“assembter klaar" 

1197 sPa"droe-out" 1618 P."set vectors voor gebruik"' 
1198 $CP+-8)-R6ZEA;P=P +1 1619 @=4 

1282ENsubr. tees" teit 1622 P."TYPE:EN20C=E" EA, LCArRISB);2=8 
1212::L29 JSReFE7I:CPTASG 1832 P,'’''"npitijdens liezen mag gean * 
1228 BNE LL21 ;SRK “"scroiting optreden"”* 

1239:LL2! LOX 188;STX 167 1648 END 

12s0:LL22 LOARB202;TAT;LOXB28 > Peter Ehr] ich 


1259:LL23 DEX;3EQ LL28; TTA 
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TOECICGHT ING 


50-90 
-130 
-155 
-170 
190-230 
-270 
-300 
-330 
„355 
-370 
=390 
-446 
500-620 


710 
-730 
=740 
750 
780-790 
800 
820 
„840 
-890 
=910 
940 
970 
1010 
-1070 
-1090 
„1120 
-1140 
-1198 
-1220 
-1280 
1290 
-1350 
1410 
-1440 
1450 


1490 
„1520 


adressen: 


a4 

a5-a7 
a8,a9 
aa,ab 
ac,ad 
ae,af 
de 
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schrijft als aanloop 127 “q" 

schrijft "1" 

schrijft bloknr. 

bloknunmer naar VD (indien toegestaan) 
schrijft 70 “0": nieuwe aanloop na printroutine 
schrijft "1" 

haal byte op, tel op bij checksum 

schrijf 256 bytes 

schrijf "1" 

startadres + 256 

schrijf checksum 

verhoog bloknummer: * = eindnummer, dan klaar 
de converteer routine haalt de gegevens uit de string- 
buffer en plaatst deze in geschikte vorm in de Jokaties 
168-173 

bitteller 

fase-om 

wachtlus halve bitperiode 

ís het een "1“ dan naar 770: extra fase-om 
tweede helft bitperiode 

alle bits gehad: terug 

gegevens klaarzetten 

subroutine: Tees 88 "0“ en wacht op "1" 

dees en naar VDU bloknummer 

niet het gezochte: terug naar begin 

lees 8 "0* en wacht op "1" 

lees 8 bits, werk checksum bij 

goed gelezen (statusbyte): doorgaan 

lees "1": niet goed: drop-out melding 

blok klaar 

lees en controleer checksum 

laatste bloknummer: klaar 

foutmelders 


- escape? 


meet periodetijd: te lang of te kort: opnieuw beginnen 
genoeg "0" gelezen? 

wacht op "1" 

bitteller 

wacht op fase-om: te lang geduurd: drop-out 

korte periode: is "1", wacht op tweede fase-om 

anders “0", meteen door naar 1490 

bit inschuiven m.b.v. carry-bit 

volgende bit of klaar 


fout-index (positie in blok) 
hulp-velden 

startadres 

start bloknumer 

eind bloknummer 

checksum 

fout-status (OK=0} 


RUISVRIJ PLOTIEN 


dan wijnen 


Als men iets verandert in het bee}dgeheugen, dan gaat dat gepaard met ruis ap de tv. 
Dit wordt veroorzaakt door het onderbreken van de VDU door de CPU, Elke keer ais er 
‘ets veranderd wordt, moet de VDU even stoppen met het genereren van het zeïevisie- 
signaal. N 

Je hebt hier twee oplossingen voor: De eerste ís dat je alleen maar iets verandert 
als de VDU in de terugslag zit van rechtsonder in het beeid naar linksboven. Dit kun 
„e doen door bijv. het toevoegen van WAIT-statements. 

De tweede oplossing ís het synchroniseren van de CPU met de VDU. Dit houdt in, dat 
je de klok van de CPU en de VOU van eenzelfde bron betrekt. Als dan de CPU het 
beeldgeheugen gebruikt, dan heeft de VDU het niet nodig en omgekeerd. 

In de ATOM zitten twee klakgeneratoren, die van de VOU en die van de CPU. In verband 
met de beeldfrequentie ís het niet mogelijk om de CPU-klok aan de VDU te koppelen. 


Jpiossing: Haal IC 44 uit zijn voetje en buig pootje 13 naar buiten. Soldeer dit 
met een draadje aan de middenpen van de omschakelaar. 
Soldeer de ene kant van de schakelaar aan pootje 2 van IC 45 en de 
andere kant aan pootje 10 van IC 9. 


Je kunt nu omschakelen tussen twee klokfrequenties voor de CPU. Dit is nodig omdat 
de kiokfrequentie van de VDU niet 4 MHz is maar 3.58 MHz. Dit heeft tot gevolg, dat 
de CPU zijn werk 10% langzamer dóet. En dat is vervelend in tijdgevoelige kwesties 
als SAVE- en LOAD-operaties. 

Het kan zijn dat, als je omschakelt naar 3.58 MHz, de ruis niet verdwijnt maar de 
processor toch langzamer werkt, Dit komt omdat de CPU niet op 4 MHz werkt, maar het 
kloksignaal nog door 4 deelt. De CPU loopt dus wel synchroon met de VDU maar niet 
ín fase. Door nu een paar keer om te schakelen, komt het zaakje op een gegeven ogen- 
blik wel ín fase en dan ben je de ruis wel kwijt. 

Zelf heb ik de omschakelaar achter op het board gelijmd op de plaats waar normaal de 
koelplaat zit. Het knopje steekt naar buiten, zodat omschakelen geen probleem is. 


onderdelen: 
Sl omschakelaar 


= slow, geen ruis 
= fast, wel ruis 


U Fe 


fig.l. 
ruisvrij beeldscherm 





GEEN VRAGEN 





Deze korte routine zorgt ervoor dat het IN, statement gebruikt kan 
worden zonder dat er een vraagteken verschijnt. 

10 REM NO 22? 

20 P=f80;[;LDA 982;STA #208;LDA2254; STA #209;RTS;] ; Z=fFE940080 

30 REM DEMONSTRATE USE 

4O PRINT "ENTER AMOUNT:"$ !#208=Z; INPUT A 

50 END 


BRON: YOUR COMPUTER augustus 1982 
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HET NIEUWE S3ASICOOE = PROTOCOL Rudi van Drunen, 


Bij basicode 1 was het zo dat er altijd veel aangepast moest 
worden, dit aanpassen hoopt men met BASICODE-2 terug te 
brengen. dit wil men bePĳken vet het schrijven van subroutines 
voor de meest voorkomende machine-afhankelijke statements;deze 
subroutines worden na het inlezen van het basicode programma 
hieraan toegevoejd,. Het eigenlijke programma begint pas op 
regel 1000; van regel 100 tot 1000 staan de subroutines voor 
de machine-afh, statements, NB op r‚ 10 moet dus altijd staan: 
SOTO 1000, 

Nu kan een besicode 2 uitgezonden programma ook met het basi- 
code-1 vertaalprogeamma van Arie Marchal binnen gehaald worden 
maar dan moeten de subroutines er zelf bj geschreven worden, 


Een overzicht van de subroutines: 


=R', 100: sbr. voor het wissen van het scherm; bij ons dus: 
100 P.$12;RETURN 


-R.110 : sbr, voor het positioneren van de cursor;plaats 0,0 
is hierbij links-boven op het scherm; de plaatsen waarheen 
de cursor moet gaan in de variabelen VE(vertikaal) en 
HO(horizontaal) 


=R. 120: deze sbr, doet het omgekserde van de vorige: in 
de variabelen VE en HO komt te staan waar de cursor op het 
moment van het aanrospen staat. 


=R, 200: sbr, die kijkt of er een toets injedrukt was, zo Ja, 
dan komt in INS te staan welke toets het was:;zo nee, dan 
blijft INS leeg. 


=R‚ 210: deze sbr. doet ongeveer hetzelfde als de vorige,maar 
wacht net zolang tot er een toets ingedrukt wordt, 


-R, 250: deze sbr, laat de computer een piepje geven. 


=R‚, 260: Door deze sbr, wordt een random getal gegenereerd, 
en neergezet in de variabele RV de kleinste waarde van het 
getal is O; maar het mag niet groter of geliĳk zijn aan 1. 


-R, 270:deze sbr. geeft in FR het aantal nog vrije bytes. 
-R. 300:deze sbr. geeft STR$(SR) in SRS 


-R‚ 310:het getal dat in SR staat wordt omgezet in SR$8 (door 
sbr. R‚, 300), de lengte van SR$ is na afloop gelĳk aan wat 
u in CT heat opgegeven;is CN groter O,dan zal SRS een deci- 
male punt bevatten; met daarna nog CN cijfers. 

Een voorbeeld: 
SR=123.456;CT27;CN=22;GOSUB 310 
Dit levert; SR$=' 123,46" 


=R, 350; deze ebr. zorgt ervoor dat SR$ geprirt wordt op een 
printer, hierna wordt een 'linefeed gegeven naar de printer. 


-R, 360 :geeft ‘carriage return’ en ‘linefeed' naar de printer 


Deze info. heb ik uit de op O9 jen uitgezonden uitleg prgr'S. 
Verdere informatie: NO5 hobbyskoop, Postbus 1200,1200 BE, 
Hilversum, 





AEESME MOGELIJKHE 





ALS MEN NA DE GRMOC-OPCRACHT CLEAR L GEEFT, DAN 

KRIJGT MEN CE DAARNA TE PRINTEN TEKST, IN DE BETREFFENDE GRAPHICSMODE. 
EEN MOGIE GROTE GESTIPPELDE LETTER, 

OE GROTE VAN DE LETTER IS AAN TE PASSEN. DOOR RESP. CLEAR 1,2,3,9, 
UITSTEKEND GESCHIKT ON MAKKELIJK MEDEDELINGEN OF RECLAME BOODSCHAPPEN 


TE DOEN. OOK GESCHIKT VOOR B.V. GROTE CIJFERS DIGITALE KLOK. 
VOORBEELD: 10 GRMOD 


20 TeEse0 

30 CLEAR 1 
vor’. ACORN 
So ENC 


BIJ ONDERSTAAND PROGRAMMA KRIJGT U NET EMBLEEM, VAN DE REGIO, WAAR HET 
MEEL GOEO TOEVEN IS, 


10 REM CLUBEMBLEEN REGIO BRABANT-OOST 
20 REM GEBRUIK sOSBOX 
30 REM TINY VERSCHUREN 

















vo RMOD 
$0 TeE1=0 
80 CLEAR 2 

hd ACORN" neo vers 

*__COMPUTERCLUS*" 250 cl 
40 B," “*BRABANT-OOST"""" 3e 0RDEND 
100 va45 320 DATA 19,22, le:2®: 15,25, 1*, lb: 13e 
110 RESTORE 8212, 2d,13-2A.1Le 2, 10-30 
veorer-1 IRQ DATA ,31,8,I8. 0e 32703F, De Eede 
330 IF YasB THEN vab? . Jte6e39.br38,5,25.5,35,5 
190 READ X “380 OATA 25,4. Î0e9ede:9, 300037 De 
250 If Xe100 TCB 220303703022, 3I0 Jee Hede 
20 PLOT 4,xor #0 DATA 5,35,5,35,b,Fe,b.3®. 7,31, 7. 
190 READ x . 22.822, AL, LL 24, 1027 
180 UF xe100 T.c@ *10 DATA 15,25, 17-23, Lb: 29,19, 2le 14e 
140 PLOT S,x,Y Blel@,21,5,7, 14, ELSA 
zoo IF vasì Tc VEG DATA 1NeZlsbe1®, 19.25, 8e Ze 14, 2 
210 G.A "10,2%, 1e, 25, ib: 26. 21,3% 
zzorenD x 430 DATA 21,39,25,30. 28,30, 100 


220 If xs100 T.c.B 
2eQ PLOT *‚xor 

250 READ Xx 

20 IF x=100 TG. 
220 BOT 5,x.r 

200 READ Xx 

IF xeloa Tc. 
300 PLOT v‚x.r 

310 READ X 

220 IF xs100 Tc. 
228 PLOT 5,xer 





REM Met deze routine worden de spaties 66k 
REM wit als U inverse video gebruikt. 


Pa 28A;C PHA; LDAABPÓ1 ; CMPOÉTP; BEQÁ28B3 ; LDAAET 
CMPEÉ6P; BEQ#28B3; PLA; JSRÁFES 2; RTS; PLA; CMPOA2D 
BEQ#28BC; JSRÁFE52; RTS; LDAOAFF ; JSRÁPES 2; RTS;J 

2 k2pB-AAD; Á2PI=k28; B. 


Frank de Groot 
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1OREM TEKENING IN 
ZEREM TEINT IN Gî 
ZOREN LL. RIJNAGTE 
GODIM XXaB, YVAO, LLU 

SP. &12"uvar" 

EBFOR J=3 TO 36 
ZaxSINCRADIe 10) + 













‘8306 

110GDSUE 200 

FOR N=0 TO 1OBFWAITINEXT N 
2OGOSUB 220 

1UGFOR N=8 TO 1BD5WAIT:NEXT N 
15DUNTIL 0 

iE@FORI=OTO ZE 
178IFI=OMOVEXXO YYB 
18BDRAWXXI, VYE 

1IDNEXT 5 RETURN 

BOFOR N=HEBLUTOHBLEF tIN=HCDE NEXT 
218GDT9 165 

OCtEARD 














4OREM REGEL 208 KAN IN MACHINETAA MET 

SOP=#LSAD ELDVOOILDADHCASELLD STAHEDOD, V 

Z2EOSTAHELDD, YHINYGENE LLGGRTSGJ 

Z7OREM EN 15 AAN TE ROEPEN MET LINK #22 

SOREM DUS VOOR DE MOVE, PLOT EN DRAW COMMANO0' 5 

ZIOREM BITS VAN #EGUT MOET LAAG ZIJN, ANDERS WERKT HET NIEL 
ZABEND 














4om2 VDU-PK 


Geeft een beeldscherm van 24 regels en 40 kolommen, 

Upper en Lowercase (grote en kleine letters) plus geinverteerd. 
Vertikaal instelbaar tussen 1 en 24 regels, vanaf de bovenkant 
van het scherw (?V=Aantal regels). 

Horizontaal instelbaar tussenb en 40 kolommen in b-voud oplopend 
vanaf de länkerkant van het scherm (?H=3/bsAantal kolommen). 
Naar keuze zwarte letters on wit beeld of witte letters op zwart 
beeld(?F=Q of #80 voor resp. zwart op wit of wit op zwart), 
Karakters met bit Jel worden gednverteerd weergegeven, intoetsen 
na CTRL-6, 

CTRL=3 en k geven resp. het normale 32 kar, VDU en het nieuwe 

50 kar, VDU (P.$#13 en P.$#14) 

Met CTRL-2 kan tussen VDU 32 en 40 gewisseld worden zonder dat 
het scherm gewist wordt. 

CTRL-1 print de inhoud van de input buffer (datgene wat je hebt 
ingetypt tot de eerste sweturn), 

Regelinvoer lengte is verhoogd van bh tot 192, 

Auto repaat op alle toetsen met super snelle repeat via Rept 
toets, Shift en CTRL tegelijkertijd ingedrukt levert vertraagd af- 
drukken. Dit: programma is overaï te plaatsen: lengte 2K (IKB om 
precies te zijn), 

Probeer ook eens: ?H=15; ?V=12} 2ÁBOOOefB) en type maar wat in... 
(20212VDU, Leuk 3: 
Het programma gaat naar het bandjesarchief. 
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210 
220 
230 
240 
250 
zeû 
270 
280 
290 
300 
310 
320 
430 
340 
350 
360 
3r0 
380 
Jen 
„00 
410 
«za 
+30 
440 
«50 
val 
+70 
&8Û 








FORMAT 12/74/85 ekadkad 


FER FORMAT 322,83 
1 REN INITLALISATIE 
DIM LL7.FOR J=0 TO 7,Lii=MEEFF NEXT 1 
DIN <0 
U=WFES2 DWS F$21 
FAR Tet TO 2:P=c LIST 
OREN FORKAT 12/72/85 
1OiREN INITIALISATIE 
200IM LL7:FOR 120 TO 7.LLI=HEFFF NEN 1 
300IK CO 
GOQ=HFES2:D=HSF FP, 421 
SDFOR I=1 70 2,F=C 
sor 
70:LLO 
BOLDAA0 : STAND: TAY 
9OLDAAI2 „ISRA 
LOOLDA CHEO) 4: TAX 
110CHP9S5B BEG LL3 
120CHP891.PEQ LL3 


LL 

LDA80:STARO; TAY 
LDA83E; JARQ 
LDA (HO) „V; TAX 
OMFA58 EEG LUI 
CKFO91 BER 113 
CMF2P3:BEQ LL3 
CHF2H6O BPL LL 
LDXA32: DEV 

Lel 

(NY: TXA: JSRQ 
LDADIZ, ISRA 





Ziet u het 
VERSCHIL ? 










Wat zal het toch 
MOOI 


LL2 130CMP293;BEQ LLS zijn in Acorn Nieuws 
LDA(R6O) ,V:TAX 14OCHFARSO;PPL LLL : 
LL3 150LDX932:EY met al die PORMATs! 
Ny 160:LLt 


CHFALJ:BNE Le 
SSRHCD5G: INCD 


170INY; TXA, JSRA 
180LDAA32 JSK 





RTS 190:LL2 
LL4 200EDA (HSO) Y; TAX 
TXA:BMI Le 210:LL3 
CHFDSIGPFL LLé 220INY 
LLS 230CMFALJ BNE LL4 
LOX83L 240SSRHCDIG. INCD 
LLé (er ETC) 
IXA: JSR& 
INCHO:LDARG; CMFAKS0:EKI LL 
JSRRCD5G 
INCD;LPADZE LDX210 
LL? 


JSRR;DEX;BNE LL? 
LOADO: STARD: JAF LLE 
3 
NEXT I 
h REM HOOFDPROGRAKMA 
F.$e12.70=5:Â=S 
DIN." TEKSTRUIMTE "A A=Ax25&EzA UNTIL ACHFFFF 
IE ?AC13 OR APIJI27 F"LEGE TEKSTRUIMTE"’ END 
F "TOETS ALS PRINTER STARTKLAAR"'; LI. KEFES 











BiA+AI vant 7 
BLEND BELT OPrAARRatATE: R6D=A+:LI.C =P. 
1 7D=0 





FROGRAMMALEHGTE "Bel-E! BVTES® 2D=2043 
“DID INTIL 70272 OR ?RROOSt27 





FROGRAMNALENGTE 1048 BYTES 71 


xx NELLE SPFIEGEL SCHERM … PA7/1B5 Kakaked 


u KEM SNELLE SPIEGEL SCHERM 9/7/'83 
10 DIKLLE;F, I=0T04:LLI=-l;N, 







20 DIM CO 
30 F‚r-tTo2,f=C 
40 
50 :LLO 
60 LDXA0:STXHBO A (UR) HISSHTIdEGHAT 
70 _ LDAS#80:STAH8L _7SSEN d 
80 :Lit 
90 …_LDYAG 
100 :LL2 


110 LDA(#80),Y;STAH82,BEG LL3 
120 _ROLA;KORHO2 

130 _ROLA;RORHBZ 

140 _ ROLA;RORHB2 YEALSTOEAC 
156 _ ROLA;RORHBZ 

160 _ ROLA;RORR82 Td 
170 ROLA;RORHB2 
180 _ROLA;RORHBE 
190 _ROLA;RORHB2 
200 :LL3 S3UISIs 4 ) 
210 _ TYA;TAX.STARD; SEC; LDAAI1 ; SBCHO, TAY Wet 
220 LDA(#80),V;STAKBI,BER LL ueA ewweiboad was 





230 _ROLA;RORHOF ‘uarsbardes az 
2460 RÔLA;KORHB3 jay Wo Saoz 
250 -ROLA,RORHBI NE 


260 _ ROLA;RORHE3 
270 _ROLA;RORHB3 
280 _ROLA;KORHBS B 
290 _ ROLA:RORKB3 In dit zoekpleatje 
300 _ ROLA:RORHBS staat het programma van 
310 :LLé : 

R 
320 _ LDARB2;STA (HBO), v Rob van Dort links. 
330 _ TXA;TAY Dat van Bram Poot óók, 
340  LDAHBI;STA(HBO) , Y : : 
350 INV;CPVAL&;BNE L42 els u de pagine op z'n 
360 _ LDAASE, CLC; ADCHBO; STAHBO; LORO; ADCHHIGSTARBIJ Kop zet. Draait u de 
370 _ CNFAHIE,BNE LLi 


386 RIS pagina weer normaal, 
320 1 dan vindt u onderaan 
400 NN, N 
410 EE, een hogere versnelling 


voor Bram's programma, 








FROGRAKMALENGTE 644 





De routine georuikt de ZP-geneugens #à- 
‘geroepen met LINK 550, Het kan overice! 
Je met instructies te schuiven, zodat 
den door TAX & TXA (+9 msec sneiier): 













150 LDY#8; LDA HA), v; STA 
170:853 ROL#C; ROR 
180 TAXsLDYH#9; LDA 


190:554 ROREC;ROLAGD 
zoû LDY#8STO (HA), 





vivÀ 


Eis de programma’s 





FORMAT kort aezead doet het programaa zoals is te zien aan de beide 
lastings de compacte, afgebroken lasting is geproduceerd door de 
standaard opdracht "LIST", de volledige Insting door “FORKAT*. 

Het programma verwacht op de eerste regel van het te formatteren 
programma een “KEK” met daarachter de naam van het programwa, Deze 
naam wordt op dubbele breedte afgedrijkt als kop. 

FORMAT verwacht kettinaformulieren met blader van Aé-lengte. lange 
listings worden ter hoogte van de naad in het papier onderbroken zodat 
niet op de naad geprint wordt. 

Drie spaties worden geprint tussen het regelrummer en het beain van de 
BASIC-tekst. Een BASIC-label kont op de plaats van de middelste 
spatie,evenals de assembler open- en sluithaken, mits deze aan het 
begin van een regel staan. 

Assembler labels aan het begin van een regel worden twee posities naar 
links geprint wilt u alleen de dubbeje Punt naar varen 
hebber, verander dan 113 in regel 110 in Ii. 

Regels langer dan 8D tekens worden afgebroken en op een volgende regel 
netjes verder afgedrukt (dit aantal tekens is te veranderen door #50 
in regel 330 aan te passen), 

Grafische- en contolcharacters worden vervangen door een $31 (&31 
geeft op mijn printer een blokje op het papier,zodat ik weet gat e, 
iets aan de hand is, Mocht uw printer $31 niet slikken, ak er dan 
bijv. $32 (=spatie) var); als uw printer de grafische characters vel 
kan verwerken, laat dan de opdracht 'BMI LL6' in regel 270 vervallen 
Aan het einde van het geprinte proaramma wordt de lenate hiervan in 
bytes afgedrukt. 

Het papier wordt doorgespoeld tot aan de eerstvolgende papiernaad. Dit 
spoelen is te onderbreken met de SHIFT-toets, 








Printer specifieke zodes 

regel 300 : $3i=print unidentified charaaten 

regel 470 : $27$48=reset printer 
$274él=kies 12,5 shar/inch 

regel 480 : $27$14=dubbelbrede characters 
$27$iS=normale characters 


Het spreekt natuurlijk voor zich dat u dit programma in een andere 
tekstruinte moet onderbrengen eu runnen dan het programma dat wy uit 
wilt laten printen, 

Als u dit programma overtikt moet u de spaties na de reaelnsmmers niet 
invoeren! ! 





SNELLE SFIEGEL SCHERM dit programma doet precies hetzelfde als het 
raaranma dat ik in de vorige A‚N, publiceerde, alleen zo'n SOx 
seller, 

staat op die manier als progvanmeur wel even in ie hemd, maarzoiets 
kan iedereen aebeure ven 
Einen 0,4 see. na het intoetsen van LINK LLO is uw aratische scherm 
EAR& gespiegeld, 




















Naam 3ak5 Je extra VIHG Ss), 





Vindt u het ook zo weinia . t paart die vri, 
Wat dacht u hiervan : 
een altiid gelijklopende Cmos-klok, 
Dit kost u 2 poorten, 
Tetaal vrij te gebruiken : Î poort. 
x aansluitina voor bi ivoorbeeld 
= AfD-D/A converter 
= 2 af J-dimersionale digitizer met hoge vrezolytie 
— modelbaan besturing 
= 2277 
Dit kost u : 2 poorten, 
Totaal vrij te gebruiken : 5 poorten, 
x Niet genoeg ? 1 VIA extra geeft 2 poorten extra 
Totaaì vrij te gebruiken : 5 poorten. 





Finanzieel offer : FL 2,50 + FL 15:= per VIA ivia HED), 

Waar plaatsen we deze UIA's in ons geheugen 7 

Wel, onze standaard VIA reserveert 1024 bytes (HRB00-HBEFF) voor zich, 
waarvan er maar 16 gebruikt worden. 

Niet net ies, en daar aaan we wat aan doer, 

Door toevoeging van het IC Z4L5139 op de juiste plaats Kunnen in 
hetzelfde geheugengebied 3 extra VIA’s een plaatsje vinden (x) 


Schema's : 


standaard aangepast 





Bouubeschri jvind 


= Haal IC 49 uit zijn voet en buig pin ò naar buiter 

= haal IC 1 uit zijn voet en buia Din 23 naar buiten 

= saldeer de 745139 stleen met cin Ben pin 1é wast oe IC &® sdit as 
ook een Z4L5139) 

= soldeer A4 (pin 18 IC 2) aan pin 2 van de \132 
- soldeer A3 (pin 13 IC 2} aan pin 5 van de LES 





7d 





eidee: cin i van de '139 aam cin & van IC 49 
oldeer C5 pan 23 van VIA O (onze stardaard-VIA) aan ain « van de 





13° 
- 1dem van VIR 1 aan pin 5 
= iden van VIA 2 aan pin & 
- idem van VIA 3 aan pin 7 


an de 74lS139 (een 4 vit 2 decoder) is nu sleentes de heift gebruikt: 
u kunt theovetisch op dezelfde manier als boven beschreven 3 VIA’s 
elakken boven de FIA (IC 25) 


eo bii mii werkt de schakeling met 1 extra VIa feilloos: of de 
grintsporen de belasting van naq eens twee VIA's aankunnen moet 
vraktiseh worden beproefd (komt binnenkort!) 


OPTILLUSIE : zoals vorige keer beloofd het programmaatje waarmee de 
diepte-suggestie is op te wekken. 
Het principe is eenvoudig 


1 genereer een willekeurig stippenpatroon 

2 spiegel dit patroon, met dien verstande dat alle punter binnen een 
geometrische fiauur 1 positie naar links (of rechts) worden geschoven. 
Op deze manier wordt 1 verdieping verkregen; doen we deze tru 
nogmaals met een figuur binnen deze figuur dan verkrijgen we nog een 
verdieping. 

In mijn programmaatje worden zo vier vierkanten gemaakt, 

Het puntenveld heeft een diehtheid van ca. 50 %. Zorg wel dat deze 
dichtheid niet bereden 35% komt: omdat anders het arafisch gedeelte 
van onze hersenen niet geroea aanarijpingspunten heeft om de 
afzonderlijke figuven te herkennen. 

Het beste resultaat verkrijgt u als u van uw grafische scherm een dump 
ap dubbele breedte laat maken, 


U ziet, mijn persoonlijke voorkeur gaat sterk vit naar wat serieuzer 
grafisch werk. Volgende keer hoop ik iets te kunnen laten zien van een 
grafisch veld van 518*768 punten (=48k@ytel). 





y onze verenigina niet in aanmerking 
komen voor koninkliike goedkeuring ? 





Communicatie tussen twee Acorn Atom s, 





Er is mij gevraagd een artikeltje te schrijven over her verbinden 
van twee Acorn's via de cassette poort, Hier is het dus. 


De grap is dat wat op de ene Acorn ingetypt wordt ook op het 
scherm van de andere Acorn verschijnt, zelfs control-code , zoals 
ctrl-l, gebeurt” ook op het ontvangende scherm, 

Stel u woont in een flatgebouw en u heeft een medebewoner díe ook 
een Acorn heeft dan kunt u met elkaar communiceren via de Atom, 
Wat is hier voor nodig?? 

Weinig! Het enigste wat u nodig heeft is een cassette-snoer van … 
de lengte die tussen de beide Acorns is, en een programmaatje. 

Nu is dat natuurlijk niet zonder méér een cassette-snoertje zoals 
u die in de winkel koopt, nee, u moet er zelf iets aan veranderen. 
Wat u moet doen: in de eerste plaats moet u ervoor zorgen dat, als 
u gebruik maakt van een 5-polige stekker, pootje 1&2 en pootje 

h&5 niet aan elkaar zitten!! U moet slechts gebruik maken van de 
buitenste pootjes waarbij de min of ook wel aarde natuurlijk blijft 
zoals het is, 

Daarna moet u bĳ het ene stekkertje het draadje van pootje t naar 
5 leggen en het draadje van pootje 5 naar pootje 1, 

M‚Â.W.: gewoon links en rechts verwisselen zodat straks de uitgang 
van de cassette-poort van de ene Acorn aan de ingang van de cas- 
sette-poort van de andere Acorn komt en andersom, 

Als u dit voorelkaar heeft, dan is de verbinding tussen de twee 
Acorns gemaakt, Nu dus alleen nog het programma, 


If P‚"zenden"' 

2 WAIT;WAIT;WAIT;WAIT; 
3É KEY C;IF C=f G.3É KEY is een Toolkit commando. 
hf BPUT A,C 

5f IF C=CH"Q";P. ';G. 15f 
6f P.$C 

70 G.2g 

ijd P."ontvangen"' 

11f C=BGRTC;P,$C 

12f IF C2CH"Q";P.';G. 1d 
138 G.11g 


Uitleg: De beide Acorns hebben aan dit programma genoeg, voor beide 
Acorns hetzelfde programma dus, 

Men typt op de ene Acorn RUN in en op de andere Acorn GOTO 1fg. 

Nu verschijnt op het scherm van de ene Acorn "ontvangen" en op het 
scharm van de andere Acorn verschijnt de text “zenden! 

Als men nu op de "zend-Acorn" een zin of een woord intoetst dan 
zal dat woord op de andere Acorn verschijnen, 

De ontvang-Acorn kan niet zenden en moet rustig kijken wat er op het 
scherm komt totdat.,...., de zend-Acorn een "Q" wegstuurt die de 
zend-Acorn naar ONTVANGEN en de ontvang-Acorn naar ZENDEN zet, 

U kunt natuurlijk voor de "Q" ook SHIFT-Q gebruiken of een andere 
toets, 


W. Schreuder (regio Noord) 





Hans Brauwer (FE1FJA) 


RECORDER DIAGNOSE PROGRAMMA 


Peter Ehrlich 





Ket programma vraagt signaal of frequentie, 

Signaal geeft monsters van het uitgangssignaal van de recorder 
zoals de computer dit ziet. Dit signaal moet vrij zijn van snel 
herhalende faseovergangen (naalden) en een redelijk symmetrische 
blokgolf laten zien. Is dit niet het geval dan kan men een laag- 
doorlaatfilter (zie A.N.) proberen. 

Het frequentie programma geeft de gemiddelde frequentie van de 
hoge en lage tonen (l/periadetijd). Dit ter controle van de snel- 
heid van de recorder. Het is alleen betrouubaar als het signaal 
behoorlijk is, dus eerst controleren met het signaalprogramma. 


N.8.: Het pragramma moet precies als de listing ingetypt worden; 
als men dit bezwaarlijk vindt moet men regel 10 veranderen van: 
..,P(-l) wordt: „o3Pei2EE2. 





IKErirecorder Crasnose 

1@ OIMB(ZSS), LL CEI, PC-iD 

15 FORI=8T96 sie I= 

2e P.s21;GOS.aiP. s6$12 

38: [N. "SIGNAAL CF FREKWENTIE “SS 

48 P, “PLAY TAPE"? 

58 IF PB=CH"S";G,s 

188 IN. "METEN ROND FREKWENTIE (BV 2492 
id 

118 P.sl2, "FREKWENTIE:" ;8=5 

i28 DO LINK LL@ 

132 T=8;S=9jE=(5Z0300F 37} 17 +1 

148 L=7XE/1O;H=18kEN? 

i5@ FORK=@ TO 255 

168 IF BPK>L;IF BPK<H;S=S+BK Te Te} 
128 NEXT K 

175 IET<48;P, © "$8s8s8s8s8;G. 200 
189 G=5688B0XT/(17XS+20XT) 

1394 P.G,$8$8588058 
288 UNTILO 
38BsP. "DRUK OP TOETS VOOR MONSTER"? 
325 FORK=1TO68; WAIT iN. 
318 CLEAR4 
320 FOR K=10 TO 188 5.20 
330 LINKS&FFE3;LINK LLS 
348 MOVEC-1),K 
35Q FORi=@ TO 255 
355 J=B?I+K 
368 DRAUI,J ;MOVELI +1), J 
328 N. ;N. GEND 
4QOaCNTIJDMETING EN SAMPLE ROUT 
485:i 19 LODXEG 
419:LL.1 LDA#B882;STAHSG 
420:t12 LOA#BOGEORHBOG2 ;ANDER2G 
439 BEG LL2 WACHT OP FASE-ON 
44B:tL3 LOTEB;LDAHBGAZ ;STAHSG 
450@:LL4 INY;BEQ LilstOA88@ 
4658 EORHBABZ;ANDEH2OGBEG LL4 
478 TYA;STA B‚X;sINX3BNE LL3;RTS 
S@B:LLS LOXES 

Sl@:iL6 LDA#BAA2 ;ANDER20 ;L SRA 
520 LSRA;STA B‚X;INXG;BNE LL6 
532 RIS;J ER. 









FH OBEER HET VOLGENDE VOORBEELD: 





ir 39936 


Fa 





ET ANTWOORD IS IN ZOVERRE FOUT, DAT ME: MIET GOED 1S'* 
JUISTE UITKOMST 15 NATUURLIJK 





il 





OMmInG, DIE IN 
VOORKOMENDE GEVALLEN DE OFLOESIMG VAN BEPAALDE PROBLEMEN, 
DIE WISKUNDIG JUIST ZIJN, ONNODIG MOEILIJK MAKEN. 








HAT MIER VERTOOND WORDT IS EEN CRNSTIGE TEKORT 
9 





MJN HP-E? REKENMACHINE, MIJN SFARP EL-5886 S REKENMACHINE 
tEEN ZEER EENVOUDIG APPARAATJE VAN CIRCA Z TIENTJES), EN 
MIJN SHARP PC-tr1it POCKET COMPUTER HEEBEN GEEN PROBLEMEN MET 
DEZE AFTREKKING, 

DE REC-COMPUTER ECHTER WEER Wie. ZOU DIT EEN TYPISCH ACORN 
DEFECT ZIJN? 


IK HEK DE VOLGENDE OMWEG BEDACHT, DIE TOT EEN JUIST 
RESULTAAT LEIDT, 3 te 





PP. CIEG-IEE®. 399EE tikt 
MI IS HET WEL GOED. 


ALS IEMAND IETS SIMPELERS WEET: DAN ZAL IK HEM/HRAR (MITS 
AAN MIJ DOORGEGEVEN) ZEER DANKERAR ZiJN. 


IK WIL NAMELIJK UITADMSTEN VAN EEFAALDE BEREKENINGEN TOT OP 
ZON Lt DE 15 SIGNIFICANTE CIJFERS JINDEN: BV. WORTEL 2. OP 
DE HP-E7 GEËN ENKEL PRÜRLEEM, MET DE ACORN ATOM DAARENTEGEN 
DUS FEEL WAT MOEILIJKER, 








Uit "DATACHECK" nr.2 


Bij mijn Atom doet zich het volgende voor, als ik intik: 
IN,A,B;%C=A B; C=%C; FP,%C, C 

en vervolgens b.v. invoer 6 en 2 dan krijg ik als uitkomsten: 
36,0000000 en 35,0000000 

Ik kan dit wel ondervangen met C=%C+0,1 maar het blijft toch 
eigenaardig, Hoe komt dit? Ishet misschien een foutje? 
Misschien iets voor een vragenhoekje in DATACHECK? 


Tot ziens op volgende samenkomst. 
Theo Waayer 
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AN HES ALDEMEEN WORD EEWEERD DH: 
WAARDE WILLEN LATEN d SELEN, 
NODIG HEBBEN, Dir IIET ACTAJE 
VOLGENDE KLEINE 2RCGROMMA TSE BLIJKT: 














1 INPUT YE tit Vu 

ZE PRINT"Xe PEN y= "YY 

F8 PRINTYNY GAAN WE VERWISGELEN": 
2D yet 

50 

58 

za PX Ya Wy 

Erl 





GA MAAR EENS NA HOE DIT WERKT!! 


WANNEER ZAL DIT PROGRAMMA? TIE OVERIGENS NIET WERKEN? 


Jaar 


WEJ DR ENE 


LOGARITMEN MET WILLEKEURIG GRONDTAL 





De Ftoatins Paint functie LOG is eisentijk fout benoemd, 
omdat het de tosaritme van een (positief) setal berekent met 
srondtai e (=2,7182818etc.). Deze functie wordt sewoonlijk 
met LN aanseduid. 

LOG is naar sebruik de naam van de tosaritme met srondtat 
18. 

Maar daar zutlen we het niet over hebben. 


Hoe kunnen we de [osaritme van een (positief!!!) getal 
berekenen met een ander srondtal dan @ ? 

Dat is viterst simpel, en de wiskundisen onder ans zuiten 
zich afvrasen, waarom ik er zo'n drukte over maak. 

We sebruiken het formuletje: 


A x x 
LOG B = LOG B/ LOG A 

met x een witlekeurig srondtal. Dus daar kunnen we e@ vaar 

nemen. 


Het Srondtalt moet overigens aftijd een positief setal, niet 
selijk aan 1 zijn! 


10 
We kunnen dus bv. LOG 190 vitrekenen mett 
‘\De19B = LOGIA LOGIJ 


Probeer het maar, er moet Z uitkomen, omdat 108=1032 is. 


Groeten: 


Jaap Woldringh 


80 


10G. 100 


28 

ED enteren ene: 
Nn Len insen aka 
KT ne thhatnad dadadada edna 
E® 

7@ NAAR: JOHN CLARK CRAIG 
78 

B8 DOOR JJH WOLORINGH 

328 


188 P.$1Z2" te berekenen variabele = D"'" 

181 P. "ALLE ANDERE VARIABELEN MOETEN"" "POSITIEF ZIJN." 
185 P‚ "INVOER VAN :""* 

118 FIN. "GELEEND BEDRAG :“X6 


128 FIN. “JAARLIJKSE RENTE s"R 
138 FIN. “AANTAL JAREN “AJ 
148 IN. "AANTAL BETALINGEN PER JAAR: "N 

158 FIN. “TERMIJNBETALING 1% 


168 XR=4R/ 100 

178 PRINT$IZ 

133 REM KEUZE WELKE ROUTINE 

242 FIF %G=® GOTO es 

218 FIF «J=8 GOTO } 

228 IF N=@ GOTO a 

230 FIF «H=0 GOTO b 

240 FIF XR=@ GOTO r 

250 PRINT''$7“WAT WILT U BEREKENEN? "' 
ZEB PRINT“DAT MOET MET HET GETAL 0" 
278 PRINT"WORDEN AANGEGEVEN" " 

280 GOTO 118 

1998rXK=1005 XL =D 

1835 PRINT“AL IS ONS COMPUTERTJE ERG SNEL" 
1026 PRINT"DE REKENTIJD: DIE MERK JE WEL!"'* 
1818 FIF CXK-XL) („801 PRINTSIZ5GOTO u 
1828 XRECKHL+KK)I / 2 

1858 AM=1-CHHERIND + C-NEAT) 

1848 XT=XREKG/XM/N- KB 

1869 FIF XT>@ XK=XRIGOTO 1918 

1978 XL=XR;GOTO 1018 
ZOOBIKGKBEN* CL CHR/NE ID +C-NEKAT) DER 
z999 GOTO v 
ZDA KI=-LOG (1 -LGHLRAN/ KB /N/LOGCI+ER/IND) 
5399 GOTO u 

469AOnM=diN=O 

4518 N=N+ (N=D) 
4B2D N=KCARELG/KB/ (1 CARINA IJ +L-NHATD DD 
4OI8 IF 1OG*N = M GOTO u 

4040 M= 1BO*N 

4058 GOTO 4010 

4935 GOTO u 

5ODEHLM=L- CARINHIJ 2 C-NEATD 

SB18 LE=AREKG/ KM/N 

S9s9 GOTO u 

EBDBC KKK Xt. BOS GEKK 3 KC De CAK-G) 

6210 CeKCiDEAt LBRCKHC-E) ) 

69323 RETURN 

TOBBPPRINT Ge". ",C,D' 

7018 RETURN 





1 


SOLD uad=DiRA=LDEGUSUE Cc 

IOI2 PRINT! "GELEEND BEDRAG "+GOSUR o 
9028 XR=1BA*KR 

9036 LX=ARIGOSUB C 

384B PRINT"RENTE “50SUB > 
3858 XX=XJ5GOSUB C 

9068 PRINT"AANTAL JAREN LENING “;GOSUE p 
9878 PRINT"& BETAL INGEN/ JAAR “IN 

9889 KXeKHIGOSUB C 

9898 PRINT"TERMIJN BETALING “;GOSUB a 
8198 PRINT''" 

9999 END 

> 

)TP 
TOPs#2FS1 

PRINT TOP-#2300 

1617) 


18 G. 100 
Da ae no hin di ilnadaiainaiindndladidd 
38 ze grootste semere deler ** 
FND Ed aandaeht 
58 

182 P. $1Z:INPUT“BEIDE GETALLEN ZIJN""X,Y 

SLI® ZekeYeRCX/V) 

120 X=Ys Yez 

130 IF Z GOTO 118 

148 PRINT"GGD = *X'"'* 

158 END 

1288 JJH WOLDRINGH — 


18 G. 198 

PB rotend eaten a aan ak 
38 «« srootste semene deler hhid 
4D ter en hel 


5D tk Kleinste semene veelvoud ** 
DE edad nad ano dadel 





188 P.$12:INPUT"BEIDE GETALLEN ZIJN"'X: Yi P=keYy 
110 GOSUB a 

128 PRINT''"*GGD = *X°" 
i30 

285 REM BEREKENING KGV 
zi® Y=ARSCP/X) 

228 PRINT"KGV = *Y""" 
ZIBEND 

1OiBazeX-Yen (X/Y) 

1828 X= 
1838 IF Z GOTO à 
1040 RETURN 

1288 JIJH WDOLDRINGH 





